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

custom-binary-input-files now have their attrs set properly.

This commit is contained in:
Abdulaziz Ghuloum 2007-12-10 10:56:10 -05:00
parent 4a3f9a334a
commit 85a54dbbbf
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.io.ss
View File

@ -198,7 +198,9 @@
(error who "read! is not a procedure" read!)) (error who "read! is not a procedure" read!))
(unless (or (procedure? close) (not close)) (unless (or (procedure? close) (not close))
(error who "close should be either a procedure or #f" close)) (error who "close should be either a procedure or #f" close))
($make-custom-binary-port 0 id read! #f get-position ($make-custom-binary-port
(fxior fast-get-tag fast-get-byte-tag)
id read! #f get-position
set-position! close 256)) set-position! close 256))
(define (make-custom-binary-output-port id (define (make-custom-binary-output-port id

2
scheme/last-revision
View File

@ -1 +1 @@
1212 1213