From 57d21182e218bc7ab3a7feff3ad79cc2390dbe67 Mon Sep 17 00:00:00 2001 From: Timothy Sample Date: Wed, 23 Jun 2021 14:19:20 -0400 Subject: [PATCH] parser: Fix port name typo. * gash/parser.scm (read-sh): Read from 'current-input-port' instead of 'current-output-port'. --- gash/parser.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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!)))