From ee17f7ce4761c8be533acc3657edc107e9a4616c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Aug 2011 18:06:28 -0500 Subject: [PATCH] Revert "adjust the way the execute-callback is overridden so that this mixin" This reverts commit 7dfffb3eb844634a10180a5c401022218531f593. --- collects/macro-debugger/tool.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/tool.rkt b/collects/macro-debugger/tool.rkt index a7a910e8d8..26d7cbdd5c 100644 --- a/collects/macro-debugger/tool.rkt +++ b/collects/macro-debugger/tool.rkt @@ -158,11 +158,13 @@ (callback (lambda _ (run-macro-stepper)))))) (define/public-final (run-macro-stepper) - (send (get-interactions-text) enable-macro-debugging #t) - (send this execute-callback)) + (execute #t)) (define/override (execute-callback) - (send (get-interactions-text) enable-macro-debugging #f) + (execute #f)) + + (define/private (execute debugging?) + (send (get-interactions-text) enable-macro-debugging debugging?) (super execute-callback)) ;; Hide button for inappropriate languages