raco pkg: make search-ask
mode work for Windows (CRLF)
More generally, trim leading an dtrailing whitespace from answers.
This commit is contained in:
parent
5efab46f5a
commit
31c7101ec7
|
@ -1155,7 +1155,7 @@
|
||||||
(printf question)
|
(printf question)
|
||||||
(printf " [Y/n/a/?] ")
|
(printf " [Y/n/a/?] ")
|
||||||
(flush-output)
|
(flush-output)
|
||||||
(match (read-line)
|
(match (string-trim (read-line (current-input-port) 'any))
|
||||||
[(or "y" "Y" "")
|
[(or "y" "Y" "")
|
||||||
'yes]
|
'yes]
|
||||||
[(or "n" "N")
|
[(or "n" "N")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user