typo

svn: r4448
2006-09-27 19:12:26 +00:00 · 2006-09-27 19:12:26 +00:00 · b123c4b394
commit b123c4b394
parent 6c2343f20c
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@ -712,7 +712,7 @@
            new-type))))))
 (provide _string/eof _bytes/eof)
 (define _bytes/eof
-  (make-ctype string-type
+  (make-ctype _bytes
              (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