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

typo

Browse Source 
svn: r4448

original commit: b123c4b3940fa84108d100be20fd8f78a6c6a5fe
This commit is contained in:
Eli Barzilay 2006-09-27 19:12:26 +00:00
parent f84645ec2a
commit 840ee32d3b
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/foreign.ss
View File

@ -712,7 +712,7 @@
new-type)))))) new-type))))))
(provide _string/eof _bytes/eof) (provide _string/eof _bytes/eof)
(define _bytes/eof (define _bytes/eof
(make-ctype string-type (make-ctype _bytes
(lambda (x) (and (not (eof-object? x)) x)) (lambda (x) (and (not (eof-object? x)) x))
(lambda (x) (or x eof)))) (lambda (x) (or x eof))))
(define-syntax _string/eof ; make it a syntax so it depends on the _string type (define-syntax _string/eof ; make it a syntax so it depends on the _string type