From 7e44c4cfeb0fd330f3d3f6a8d3eeb59bef5a43ec Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 11 Jan 2017 12:05:41 -0600 Subject: [PATCH] fix a leak exposed by https://github.com/racket/drracket/commit/da4d2db396290edebee0e87908a0ff265c4c6f3a --- gui-lib/framework/private/racket.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gui-lib/framework/private/racket.rkt b/gui-lib/framework/private/racket.rkt index 1844d4c7..326f7a93 100644 --- a/gui-lib/framework/private/racket.rkt +++ b/gui-lib/framework/private/racket.rkt @@ -1350,9 +1350,11 @@ (send text end-edit-sequence)) (define tabify-pref (preferences:get 'framework:tabify)) + (define tabify-pref-callback (lambda (k v) (set! tabify-pref v))) (preferences:add-callback 'framework:tabify - (lambda (k v) (set! tabify-pref v))) + tabify-pref-callback + #t) (define/override (put-file text sup directory default-name) ;; don't call the surrogate's super, since it sets the default extension