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

fixed bug in IO where the system was silently eating up any 

remaining bytes while refilling a buffer.
This commit is contained in:
Abdulaziz Ghuloum 2008-06-08 06:19:29 -07:00
parent 1a5ab01e26
commit a0c8346840
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.conditions.ss
View File

@ -399,7 +399,7 @@
(print-simple-condition (car ls) p) (print-simple-condition (car ls) p)
(f (cdr ls) (+ i 1)))))))] (f (cdr ls) (+ i 1)))))))]
[else [else
(display "Non-condition object: " p) (display " Non-condition object: " p)
(write x p) (write x p)
(newline p)])) (newline p)]))
(case-lambda (case-lambda

2
scheme/ikarus.io.ss
View File

@ -714,7 +714,7 @@
[(fx>= j 0) [(fx>= j 0)
(unless (fx<= j max) (unless (fx<= j max)
(die who "read! returned a value out of range" j)) (die who "read! returned a value out of range" j))
($set-port-index! p c0) ($set-port-index! p 0)
($set-port-size! p (fx+ c1 c0)) ($set-port-size! p (fx+ c1 c0))
c1] c1]
[else [else