From e5b9b9e9f79f693980139b913d2c854641c7027e Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 16 Jun 2022 11:01:44 -0500
Subject: Fix argument handling

---
 qotd.scm | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/qotd.scm b/qotd.scm
index da3aba8..60efe57 100755
--- a/qotd.scm
+++ b/qotd.scm
@@ -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 ()
-- 
cgit 1.4.1-21-gabe81