bournish: Handle EOF in the reader.
* guix/build/bournish.scm (read-bournish): Add case for EOF.master
parent
febf7ef675
commit
8bebe00a76
|
@ -134,8 +134,10 @@ commands such as 'ls' and 'cd'; it lacks globbing, pipes---everything.\n"))
|
||||||
(define (read-bournish port env)
|
(define (read-bournish port env)
|
||||||
"Read a Bournish expression from PORT, and return the corresponding Scheme
|
"Read a Bournish expression from PORT, and return the corresponding Scheme
|
||||||
code as an sexp."
|
code as an sexp."
|
||||||
(match (string-tokenize (read-line port))
|
(match (read-line port)
|
||||||
((command args ...)
|
((? eof-object? eof)
|
||||||
|
eof)
|
||||||
|
((= string-tokenize (command args ...))
|
||||||
(match (assoc command %commands)
|
(match (assoc command %commands)
|
||||||
((command proc) ;built-in command
|
((command proc) ;built-in command
|
||||||
(apply proc (map expand-variable args)))
|
(apply proc (map expand-variable args)))
|
||||||
|
|
Loading…
Reference in New Issue