suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

oops, undoing mistake

Browse Source 
svn: r12555
This commit is contained in:
Robby Findler 2008-11-21 01:00:36 +00:00
parent 429e229ff7
commit d539020c42
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/text.ss
View File

@ -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))