bournish: Handle EOF in the reader.

* guix/build/bournish.scm (read-bournish): Add case for EOF.
master
Ludovic Courtès 2016-06-06 18:06:58 +02:00
parent febf7ef675
commit 8bebe00a76
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions

View File

@ -134,8 +134,10 @@ commands such as 'ls' and 'cd'; it lacks globbing, pipes---everything.\n"))
(define (read-bournish port env)
"Read a Bournish expression from PORT, and return the corresponding Scheme
code as an sexp."
(match (string-tokenize (read-line port))
((command args ...)
(match (read-line port)
((? eof-object? eof)
eof)
((= string-tokenize (command args ...))
(match (assoc command %commands)
((command proc) ;built-in command
(apply proc (map expand-variable args)))