Fixed bug in stdio->stdports -- it was using fdes->inport to make the

output ports.
This commit is contained in:
shivers 1997-02-26 22:21:48 +00:00
parent 0229b80a6c
commit b980922f0d
2 changed files with 12 additions and 2 deletions

View File

@ -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.

View File

@ -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)