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? #f)
|
||||||
(define (stop!) (set! stop? #t))
|
(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)))
|
(parse port #:lex-hook (lambda (lex) (if stop? '*eoi* (lex)))
|
||||||
#:command-hook stop!)))
|
#:command-hook stop!)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue