From b980922f0dcf8b749a7582a6a398cc5ebba7e5b6 Mon Sep 17 00:00:00 2001 From: shivers Date: Wed, 26 Feb 1997 22:21:48 +0000 Subject: [PATCH] Fixed bug in stdio->stdports -- it was using fdes->inport to make the output ports. --- Error-log | 10 ++++++++++ scsh/scsh.scm | 4 ++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/Error-log b/Error-log index 5d93928..dc0d801 100644 --- a/Error-log +++ b/Error-log @@ -122,3 +122,13 @@ reported by Michael Sperber 2 Dec 96. fix by bdc signals1.c missing on most ports reported by Mike Gunter 10 Dec 96. fix by ?????????? + +scsh.scm + stdio->stdports was using fdes->inport to make the current-output-port + and the current-error-port. The manual also had this bug. + + The manual also used (exit (run ...)) in section 9.1.7, which should + be (exit (status:exit-val (run ...))). + + Reported by euler@lavielle.COM (Lutz Euler) 2/24/97. + Fixed by Shivers 2/24/97. diff --git a/scsh/scsh.scm b/scsh/scsh.scm index c00d191..3d9039e 100644 --- a/scsh/scsh.scm +++ b/scsh/scsh.scm @@ -554,8 +554,8 @@ (define (stdio->stdports) (set-current-input-port! (fdes->inport 0)) - (set-current-output-port! (fdes->inport 1)) - (set-error-output-port! (fdes->inport 2))) + (set-current-output-port! (fdes->outport 1)) + (set-error-output-port! (fdes->outport 2))) (define (with-stdio-ports* thunk) (with-current-input-port (fdes->inport 0)