scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PROTECT-PORT-OP saves the return value of CLOSE so better return (if #f #f) than (values).

This commit is contained in:
mainzelm 2002-09-11 14:38:56 +00:00
parent 024d938e39
commit 3c07ebb50f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/big/more-port.scm
View File

@ -182,7 +182,7 @@
(lambda (ignore) (lambda (ignore)
(list 'string-input-port)) (list 'string-input-port))
(lambda (ignore) (lambda (ignore)
(values)) (if #f #f))
(lambda (ignore buffer start needed) (lambda (ignore buffer start needed)
(eof-object)) (eof-object))
(lambda (port) #f))) (lambda (port) #f)))