lowercase makefile looks better

.gitignore

@@ -0,0 +1,2 @@
+/makefile.csm
+/rain

Makefile

@@ -1,19 +0,0 @@
-CSM := csm
-PREFIX := /usr/local
-INSTALL := install
-
-.PHONY: all
-all: Makefile.csm
-	$(MAKE) -f Makefile.csm
-
-Makefile.csm:
-	$(CSM) -makefile Makefile.csm
-
-.PHONY: clean
-clean: Makefile.csm
-	$(MAKE) -f Makefile.csm clean
-	rm -f Makefile.csm rain
-
-.PHONY: install
-install:
-	$(INSTALL) -sDm755 rain $(DESTDIR)$(PREFIX)/bin/rain

README.md

@@ -1,7 +1,7 @@
 # Dependencies
 
 - [CHICKEN Scheme](https://call-cc.org) 5 or 6;
-- A few CHICKEN extensions, installable using `chicken-install -s format html-parser openssl http-client matchable srfi-18`.
+- A few CHICKEN extensions, installable using `chicken-install -s format html-parser openssl http-client matchable`.
 
 # Building
 

makefile

@@ -0,0 +1,18 @@
+CSM := csm
+PREFIX := /usr/local
+INSTALL := install
+
+.PHONY: all
+all: makefile.csm
+	$(MAKE) -f makefile.csm
+
+makefile.csm:
+	$(CSM) -makefile makefile.csm
+
+.PHONY: clean
+clean:
+	git clean -fdx
+
+.PHONY: install
+install:
+	$(INSTALL) -sDm755 rain $(DESTDIR)$(PREFIX)/bin/rain

rain.scm

@@ -1,5 +1,3 @@
-(define parallel 1)
-
 (define (find-comic-image index)
   (call-with-current-continuation
    (lambda (k)
@@ -20,38 +18,20 @@
   (format (current-error-port) "* downloaded comic image ~a~%" index))
 
 (define (download-all indices)
-  (format (current-error-port) "* using ~a threads~%" parallel)
+  (for-each download-comic-image indices))
-  (for-each download-batch (chop indices parallel)))
-
-(define (download-batch batch)
-  (let ((threads (map (lambda (index)
-                        (make-thread
-                         (lambda ()
-                           (download-comic-image index))))
-                      batch)))
-    (for-each thread-start! threads)
-    (for-each thread-join! threads)))
 
 (define (usage)
   (format (current-error-port) "usage: ~a [OPTION ...] INDEX ...~%" (program-name))
   (format (current-error-port) "options:~%")
   (format (current-error-port) "  -h|-help        display this help message~%")
-  (format (current-error-port) "  -v|-version     display version information~%")
+  (format (current-error-port) "  -v|-version     display version information~%"))
-  (format (current-error-port) "  -j|-parallel N  download N images in parallel~%"))
 
 (define parse-command-line
   (match-lambda
     (((or "-h" "-help") . _)
      (usage))
     (((or "-v" "-version") . _)
-     (format (current-error-port) "rain.scm 1.0.0~%" (program-name)))
+     (format (current-error-port) "rain.scm 1.0.1~%" (program-name)))
-    (((or "-j" "-parallel") n . rest)
-     (let ((nn (string->number n)))
-       (unless nn
-         (usage)
-         (exit 1))
-       (set! parallel nn)
-       (parse-command-line rest)))
     (()
      (usage))
     (indices

rain.sld

@@ -14,7 +14,6 @@ exec csi -s "$0" "$@"
    (html-parser)
    (openssl)                            ; has to be before http-client
    (http-client)
-   (matchable)
+   (matchable))
-   (srfi-18))
   (include "rain.scm")
   (begin (main (command-line-arguments))))