diff --git a/gem300.rkt b/gem300.rkt old mode 100644 new mode 100755 index bb5bcf6..a4acfbc --- 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)]