conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 184991: binary ports' printed representation says they're 

textual
This commit is contained in:
Abdulaziz Ghuloum 2008-01-21 22:10:23 -05:00
parent b0ffb78d67
commit b00e56face
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.writer.ss
View File

@ -543,13 +543,13 @@
i] i]
[(output-port? x) [(output-port? x)
(write-char* "#<output-port " p) (write-char* "#<output-port " p)
(write-char* (if (binary-port? p) "(binary)" "(textual)") p) (write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
(let ([i (writer (output-port-name x) p #t h i)]) (let ([i (writer (output-port-name x) p #t h i)])
(write-char #\> p) (write-char #\> p)
i)] i)]
[(input-port? x) [(input-port? x)
(write-char* "#<input-port " p) (write-char* "#<input-port " p)
(write-char* (if (binary-port? p) "(binary)" "(textual)") p) (write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
(let ([i (writer (input-port-name x) p #t h i)]) (let ([i (writer (input-port-name x) p #t h i)])
(write-char #\> p) (write-char #\> p)
i)] i)]

2
scheme/last-revision
View File

@ -1 +1 @@
1356 1358