diff --git a/collects/macro-debugger/view/frame.ss b/collects/macro-debugger/view/frame.ss index 301bcf4..04c0745 100644 --- a/collects/macro-debugger/view/frame.ss +++ b/collects/macro-debugger/view/frame.ss @@ -25,6 +25,11 @@ unstable/gui/notify) (provide macro-stepper-frame-mixin) +(define-syntax override/return-false + (syntax-rules () + [(override/return-false m ...) + (begin (define/override (m) #f) ...)])) + (define (macro-stepper-frame-mixin base-frame%) (class* base-frame% (stepper-frame<%>) (init-field config)