oops, undoing mistake

svn: r12555 original commit: d539020c42421a1b0f931079e8bbcd77f67978f5
2008-11-21 01:00:36 +00:00 · 2008-11-21 01:00:36 +00:00 · 600607f8cb
commit 600607f8cb
parent 45523d5c69
1 changed files with 1 additions and 7 deletions
--- 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))