From 1fe73ffaef9e70d96706d52ccf6e407c57b87703 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 8 Nov 2010 15:03:33 -0700 Subject: [PATCH] macro-stepper: fix race condition in frame init / events --- collects/macro-debugger/tool.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/tool.rkt b/collects/macro-debugger/tool.rkt index 12244e239e..f1703f7384 100644 --- a/collects/macro-debugger/tool.rkt +++ b/collects/macro-debugger/tool.rkt @@ -47,21 +47,21 @@ (define stepper #f) (inherit new-stepper) - (define/public (lazy-new-stepper) + (define/private (lazy-new-stepper) (unless stepper (set! stepper (new-stepper)))) (define/override (add-trace events) - (lazy-new-stepper) (parameterize ((current-eventspace eventspace)) (queue-callback (lambda () + (lazy-new-stepper) (super add-trace events))))) (define/override (add-deriv deriv) - (lazy-new-stepper) (parameterize ((current-eventspace eventspace)) (queue-callback (lambda () + (lazy-new-stepper) (super add-deriv deriv))))) (define/override (new-stepper-frame)