From d539020c42421a1b0f931079e8bbcd77f67978f5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 21 Nov 2008 01:00:36 +0000 Subject: [PATCH] oops, undoing mistake svn: r12555 --- collects/framework/private/text.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index e955212d88..cce4a88ec9 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -857,13 +857,7 @@ WARNING: printf is rebound in the body of the unit to always normalize?))] [else (preferences:get 'framework:do-paste-normalization)])) - (define/public (string-normalize s) - - (let ([ns (string-normalize-nfkc s)]) - (unless (equal? s ns) - (printf "normalized: ~s => ~s\n" s ns))) - - (string-normalize-nfkc s)) + (define/public (string-normalize s) (string-normalize-nfkc s))