correct a minor issue with header parsing

2025-09-01 16:43:05 -07:00
parent 71c840d687
commit 836477902c
1 changed files with 2 additions and 2 deletions
--- a/gem300.rkt
+++ b/gem300.rkt
@@ -29,8 +29,8 @@
        (let ([header (read-line c-in 'return-linefeed)])
          (define-values (status meta)
            (let ([status-meta (string-split header " ")])
-              (values (list-ref status-meta 0)
+              (values (car status-meta)
-                      (list-ref status-meta 1))))
+                      (string-join (cdr status-meta)))))
          (cond
            [(> (string-length status) 2)