diff options
author | Timothy Sample <samplet@ngyro.com> | 2021-06-23 14:19:20 -0400 |
---|---|---|
committer | Timothy Sample <samplet@ngyro.com> | 2021-06-23 14:19:20 -0400 |
commit | 57d21182e218bc7ab3a7feff3ad79cc2390dbe67 (patch) | |
tree | f9e8d53afee8c0c97167e32f178ea9c20ed35f8f | |
parent | 87229e4b3a7f4575f0c3e04dbb8516d94e8c6b56 (diff) |
parser: Fix port name typo.
* gash/parser.scm (read-sh): Read from 'current-input-port' instead
of 'current-output-port'.
-rw-r--r-- | gash/parser.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gash/parser.scm b/gash/parser.scm index 74ba107..1547bcb 100644 --- a/gash/parser.scm +++ b/gash/parser.scm @@ -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!))) |