From 78e9bcf6be18342e8c3e6dd2ab9cdcce3a0d20ab Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 7 Apr 2004 14:11:45 +0000 Subject: [PATCH] . original commit: 1f0bab82140a7b67f0d172d225919ba6202b20db --- collects/framework/private/text.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 2360eba4..a2472892 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -1153,6 +1153,8 @@ WARNING: printf is rebound in the body of the unit to always (values s/c 1))]))) (define (in-close-proc) + (printf "closed port\n") + (car) (void)) (define (make-write-bytes-proc style)