1 files changed, 14 insertions, 15 deletions

@@ -59,21 +59,20 @@ An implementation of the QOTD protocol (RFC 865)
       (newline)))
 
   (let argloop ((args arguments))
-    (cond ((null? args) #f)
-          (else (cond
-                 ((or (member "-help" args)
-                      (member "-h" args))
-                  (usage)
-                  (exit 0))
-                 ((member "-port" args)
-                  => (lambda (a) (set! qotd-port (string->number (cadr a)))))
-                 ((member "-host" args)
-                  => (lambda (a) (set! qotd-host (cadr a))))
-                 ((member "-backlog" args)
-                  => (lambda (a) (set! qotd-backlog (string->number (cadr a)))))
-                 ((member "-file" args)
-                  => (lambda (a) (set! qotd-file (cadr a)))))
-                (argloop (cdr args)))))
+    (unless (null? args)
+      (cond ((or (string=? "-help" (car args))
+                 (string=? "-h" (car args)))
+             (usage)
+             (exit 0))
+            ((string=? "-port" (car args))
+             (set! qotd-port (string->number (cadr args))))
+            ((string=? "-host" (car args))
+             (set! qotd-host (cadr args)))
+            ((string=? "-backlog" (car args))
+             (set! qotd-backlog (string->number (cadr args))))
+            ((string=? "-file" (car args))
+             (set! qotd-file (cadr args))))
+      (argloop (cdr args))))
 
   (with-output-to-port (current-error-port)
     (lambda ()