Input-ports printing says they're output-ports

Bug #295314 reported by Derick Eddington
2
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-input-port)
#<output-port (textual) *stdin*>
> (current-output-port)
#<output-port (textual) *stdout*>
> (process "false")
22321
#<output-port (binary) "false">
#<output-port (binary) "false">
#<output-port (binary) "false">
>

=== modified file 'scheme/ikarus.writer.ss'
--- scheme/ikarus.writer.ss 2008-10-16 06:43:03 +0000
+++ scheme/ikarus.writer.ss 2008-11-07 20:06:22 +0000
@@ -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

Revision history for this message
Abdulaziz Ghuloum (aghuloum) wrote :

Fixed in revision 1665.

Changed in ikarus:
assignee: nobody → aghuloum
importance: Undecided → Medium
status: New → Fix Committed
Changed in ikarus:
milestone: none → 0.0.4
To post a comment you must log in.
This report contains Public information  
Everyone can see this information.

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.