From 0afb54a5ffd529aea31fec2471acab6b6cfaece1 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 17 Jun 2004 00:13:19 +0000 Subject: [PATCH] . original commit: 49c6d750eb9dd205b2aa44004e972a4458f8924c --- collects/mzlib/foreign.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index cbd883f..1c094f6 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -395,8 +395,9 @@ (let ([table (make-hash-table)]) (lambda (string-type) (hash-table-get table string-type - (let ([new-type (make-ctype string-type #f - (lambda (x) (or x eof)))]) + (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))))) (provide _string/eof)