fix bug related to line endings

2025-09-08 13:41:02 -07:00
parent 0dc93d369e
commit 6529f4118c
1 changed files with 2 additions and 1 deletions
--- a/gem300.rkt
+++ b/gem300.rkt
@@ -20,7 +20,8 @@
      (λ (exn)
        (displayln (exn-message exn)))])

-    (match (regexp-match #px"(\\w+)\\s*(.*)" (read-line))
+    (match (regexp-match #px"(\\w+)\\s*(.*)"
+                         (read-line (current-input-port) 'any))
      [(or (list _ "go" url)
           (list _ "g" url))
       (send client go-cmd url)]