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

custom textual ports now return #t for textual-port? (fixes bug 175517)

This commit is contained in:
Abdulaziz Ghuloum 2007-12-11 06:04:08 -05:00
parent 29eb0d1ce0
commit 09a02059c6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.io.ss
View File

@ -195,7 +195,7 @@
(define ($make-custom-textual-port attrs init-size id (define ($make-custom-textual-port attrs init-size id
read! write! get-position set-position! close buffer-size) read! write! get-position set-position! close buffer-size)
(let ([bv (make-string buffer-size)]) (let ([bv (make-string buffer-size)])
($make-port 0 init-size bv 0 #f #f attrs id read! write! get-position ($make-port 0 init-size bv 0 #t #f attrs id read! write! get-position
set-position! close))) set-position! close)))
(define (make-custom-binary-input-port id (define (make-custom-binary-input-port id

2
scheme/last-revision
View File

@ -1 +1 @@
1221 1222