typo

svn: r4448 original commit: b123c4b3940fa84108d100be20fd8f78a6c6a5fe
2006-09-27 19:12:26 +00:00 · 2006-09-27 19:12:26 +00:00 · 840ee32d3b
commit 840ee32d3b
parent f84645ec2a
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