From 93cc4c0ea767296df284804ef8e9052e9aa9f6b0 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 26 Jan 2007 18:23:57 +0000 Subject: [PATCH] Macro stepper: fixed bug in error steps (foci) svn: r5466 original commit: 8c8e0d36e7e2980b13de6b2739f4791c89a6f79f --- collects/macro-debugger/model/reductions-engine.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/macro-debugger/model/reductions-engine.ss b/collects/macro-debugger/model/reductions-engine.ss index d916720..6335540 100644 --- a/collects/macro-debugger/model/reductions-engine.ss +++ b/collects/macro-debugger/model/reductions-engine.ss @@ -195,7 +195,7 @@ ;; stumble/E : syntax(s) syntax exn -> Reduction (define (stumble/E focus Ee1 exn) (make-misstep (current-derivation) (big-context) 'error (context) - focus Ee1 exn)) + (foci focus) Ee1 exn)) ;; ------------------------------------