From 1672edb7fbdda965c4062df76d8dcc254718ac8f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 1 Jul 2004 21:52:10 +0000 Subject: [PATCH] . original commit: 94987c0ef45a4d5e0d67866dbcd84a18e03463ae --- collects/framework/private/text.ss | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 1dd4960a..30e5538c 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -918,15 +918,12 @@ WARNING: printf is rebound in the body of the unit to always (error 'delete/io "expected start (~a) <= end (~a) <= insertion-point (~a)" start end insertion-point)) (let ([before-allowed? allow-edits?]) - (printf "deleting ~s to ~s\n" start end) (set! allow-edits? #t) (delete start end #f) (set! allow-edits? before-allowed?) - (printf "before ip ~s usp ~s\n" insertion-point unread-start-point) (let ([dist (- end start)]) (set! insertion-point (- insertion-point dist)) - (set! unread-start-point (- unread-start-point dist))) - (printf "after ip ~s usp ~s\n" insertion-point unread-start-point))) + (set! unread-start-point (- unread-start-point dist))))) (define/public-final (get-in-port) (unless in-port (error 'get-in-port "not ready"))