Fixed bug in stdio->stdports -- it was using fdes->inport to make the
output ports.
This commit is contained in:
parent
0229b80a6c
commit
b980922f0d
10
Error-log
10
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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue