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

removed printf

Browse Source 
svn: r5915
This commit is contained in:
Robby Findler 2007-04-10 18:18:24 +00:00
parent cac2d2f174
commit 7ef0ce8b0f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/preferences.ss
View File

@ -228,9 +228,7 @@ the state transitions / contracts are:
(begin (begin
(v p value) (v p value)
(cons callback (loop (cdr callbacks)))) (cons callback (loop (cdr callbacks))))
(begin (loop (cdr callbacks))))]
(printf "lost a ~s callback\n" p)
(loop (cdr callbacks)))))]
[else [else
(cb p value) (cb p value)
(cons callback (loop (cdr callbacks)))]))]))]) (cons callback (loop (cdr callbacks)))]))]))])