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

typo

Browse Source 
svn: r4448
This commit is contained in:
Eli Barzilay 2006-09-27 19:12:26 +00:00
parent 6c2343f20c
commit b123c4b394
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