From 1f0030f8737d2f2e70a88411b39799273f29d1c3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 9 Dec 2006 00:21:21 +0000 Subject: [PATCH] bound toggle-focus-between-definitions-and-interactions to c:f6 svn: r5068 original commit: 7f78ffb5ed515c37b45db4ea26ad16a8695beee9 --- collects/framework/private/preferences.ss | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss index 97dace35..2f5b14e3 100644 --- a/collects/framework/private/preferences.ss +++ b/collects/framework/private/preferences.ss @@ -44,6 +44,9 @@ the state transitions / contracts are: [prefix frame: framework:frame^]) (export framework:preferences^) + (define pref-debug? (getenv "PLTDRPREFDEBUG")) + (when pref-debug? + (printf "PLTDRPREFDEBUG: showing get and set calls\n")) (define main-preferences-symbol 'plt:framework-prefs) @@ -92,6 +95,8 @@ the state transitions / contracts are: ;; return the current value of the preference `p' ;; exported (define (get p) + (when pref-debug? + (printf "get ~s\n" p)) (cond [(pref-default-set? p) (let* ([g (gensym)] @@ -108,7 +113,10 @@ the state transitions / contracts are: ;; set : symbol any -> void ;; updates the preference ;; exported - (define (set p value) (multi-set (list p) (list value))) + (define (set p value) + (when pref-debug? + (printf "set ~s\n" p)) + (multi-set (list p) (list value))) ;; set : symbol any -> void ;; updates the preference