From 99ee876fa28438e5654863ca1805387e4b6545ab Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 9 May 2005 19:49:38 +0000 Subject: [PATCH] . original commit: 996671b2e35597c53c684c96db47e58294399122 --- collects/framework/private/text.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 3c76e368..bd819699 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -1322,7 +1322,7 @@ WARNING: printf is rebound in the body of the unit to always [(eq? (current-thread) (eventspace-handler-thread eventspace)) (error 'write-bytes-proc "cannot write to port on eventspace main thread")] [else - (channel-put write-chan (cons (subbytes to-write start end) style))]) + (channel-put write-chan (cons (subbytes to-write start end) style))]) (- end start))) (define (flush-proc)