diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.ss index 4d8cf83c64..462e822943 100644 --- a/collects/framework/preferences.ss +++ b/collects/framework/preferences.ss @@ -228,9 +228,7 @@ the state transitions / contracts are: (begin (v p value) (cons callback (loop (cdr callbacks)))) - (begin - (printf "lost a ~s callback\n" p) - (loop (cdr callbacks)))))] + (loop (cdr callbacks))))] [else (cb p value) (cons callback (loop (cdr callbacks)))]))]))])