From e13f4f99188aee63d8ed0121221529e4fcacfb6d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 16 Jun 2022 09:57:45 -0500
Subject: Convert arguments to numbers

---
 qotd.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/qotd.scm b/qotd.scm
index 92ea1a8..394085d 100755
--- a/qotd.scm
+++ b/qotd.scm
@@ -64,10 +64,14 @@ An implementation of the QOTD protocol (RFC 865)
                       (member "-h" args))
                   (usage)
                   (exit 0))
-                 ((member "-port" args) => (lambda (a) (set! qotd-port (cadr a))))
-                 ((member "-host" args) => (lambda (a) (set! qotd-host (cadr a))))
-                 ((member "-backlog" args) => (lambda (a) (set! qotd-backlog (cadr a))))
-                 ((member "-file" args) => (lambda (a) (set! qotd-file (cadr a)))))
+                 ((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)))))
 
   (with-output-to-port (current-error-port)
-- 
cgit 1.4.1-21-gabe81