parser: Fix port name typo.
* gash/parser.scm (read-sh): Read from 'current-input-port' instead of 'current-output-port'.
This commit is contained in:
parent
87229e4b3a
commit
57d21182e2
|
@ -824,7 +824,7 @@ port if @var{port} is unspecified)."
|
|||
(define stop? #f)
|
||||
(define (stop!) (set! stop? #t))
|
||||
|
||||
(let* ((port (or port (current-output-port))))
|
||||
(let* ((port (or port (current-input-port))))
|
||||
(parse port #:lex-hook (lambda (lex) (if stop? '*eoi* (lex)))
|
||||
#:command-hook stop!)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue