From b123c4b3940fa84108d100be20fd8f78a6c6a5fe Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 27 Sep 2006 19:12:26 +0000
Subject: [PATCH] typo

svn: r4448
---
 collects/mzlib/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index ea8d54b465..7140f82a62 100644
--- 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