suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: d8d0c61d9aa977137f5d0a800936552d26f4d7f5
This commit is contained in:
Matthew Flatt 2005-03-19 00:47:38 +00:00
parent d3eb73d989
commit e8b6f92428
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/port.ss
View File

@ -724,7 +724,7 @@
(cond
[(eq? n 0)
;; Not ready, yet.
(car ports)]
(wrap-evt (car ports) (lambda (x) 0))]
[(eof-object? n)
;; Port is exhausted, or we skipped past its input.
;; If skip is not zero, we need to figure out