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

added _bytes/eof

Browse Source 
svn: r4447

original commit: 6c2343f20cc5fdf43039308e1425b3584bb4f0d9
This commit is contained in:
Eli Barzilay 2006-09-27 19:11:45 +00:00
parent 54527f8ce4
commit f84645ec2a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/foreign.ss
View File

@ -710,8 +710,12 @@
(lambda (x) (or x eof)))]) (lambda (x) (or x eof)))])
(hash-table-put! table string-type new-type) (hash-table-put! table string-type new-type)
new-type)))))) new-type))))))
(provide _string/eof) (provide _string/eof _bytes/eof)
(define-syntax _string/eof (define _bytes/eof
(make-ctype string-type
(lambda (x) (and (not (eof-object? x)) x))
(lambda (x) (or x eof))))
(define-syntax _string/eof ; make it a syntax so it depends on the _string type
(syntax-id-rules () (syntax-id-rules ()
[(_ . xs) ((string-type->string/eof-type _string) . xs)] [(_ . xs) ((string-type->string/eof-type _string) . xs)]
[_ (string-type->string/eof-type _string)])) [_ (string-type->string/eof-type _string)]))