w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug related to line endings

Browse Source
This commit is contained in:
w6vvn
2025-09-08 13:41:02 -07:00
parent 0dc93d369e
commit 6529f4118c
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gem300.rkt Normal file → Executable file
View File

@@ -20,7 +20,8 @@
(λ (exn) (λ (exn)
(displayln (exn-message 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) [(or (list _ "go" url)
(list _ "g" url)) (list _ "g" url))
(send client go-cmd url)] (send client go-cmd url)]