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

removed printfs

Browse Source 
svn: r7765
This commit is contained in:
Robby Findler 2007-11-19 14:41:05 +00:00
parent c4781b2025
commit 037d049164
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/auto-language.ss
View File

@ -27,9 +27,7 @@
(set! settings (send lang metadata->settings str)) (set! settings (send lang metadata->settings str))
(let ([locked? (send text is-locked?)]) (let ([locked? (send text is-locked?)])
(when locked? (send text lock #f)) (when locked? (send text lock #f))
(printf "before ~s\n" (send text get-text 0 (send text last-position)))
(send text delete 0 (send text paragraph-start-position lines)) (send text delete 0 (send text paragraph-start-position lines))
(printf "after ~s\n" (send text get-text 0 (send text last-position)))
(when locked? (send text lock #t)))))))))) (when locked? (send text lock #t))))))))))
all-languages) all-languages)