Input-ports printing says they're output-ports
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
Ikarus Scheme |
Fix Committed
|
Medium
|
Abdulaziz Ghuloum |
Bug Description
Ikarus Scheme version 0.0.3+ (revision 1661, build 2008-11-01)
Copyright (c) 2006-2008 Abdulaziz Ghuloum
> (current-
#<output-port (textual) *stdin*>
> (current-
#<output-port (textual) *stdout*>
> (process "false")
22321
#<output-port (binary) "false">
#<output-port (binary) "false">
#<output-port (binary) "false">
>
=== modified file 'scheme/
--- scheme/
+++ scheme/
@@ -566,7 +566,7 @@
[else (write-char* "#<procedure>" p)]))
(define (write-port x p)
(write-char* "#<" p)
- (write-char* (if (output-port? p) "output" "input") p)
+ (write-char* (if (output-port? x) "output" "input") p)
(write-char* "-port " p)
(write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
(let ([i (wr (port-id x) p #t h i)])
Related branches
Changed in ikarus: | |
milestone: | none → 0.0.4 |
Fixed in revision 1665.