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

.

Browse Source 
original commit: 49c6d750eb9dd205b2aa44004e972a4458f8924c
This commit is contained in:
Eli Barzilay 2004-06-17 00:13:19 +00:00
parent 0c025b9afc
commit 0afb54a5ff
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/foreign.ss
View File

@ -395,7 +395,8 @@
(let ([table (make-hash-table)])
(lambda (string-type)
(hash-table-get table string-type
(let ([new-type (make-ctype string-type #f
(let ([new-type (make-ctype string-type
(lambda (x) (and (not (eof-object? x)) x))
(lambda (x) (or x eof)))])
(hash-table-put! table string-type new-type)
new-type)))))