www

commit 93cc4c0ea767296df284804ef8e9052e9aa9f6b0
parent 56e01595c4eeffde9d09897cb44db0fb5ddc5e85
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 26 Jan 2007 18:23:57 +0000

Macro stepper: fixed bug in error steps (foci)

svn: r5466

original commit: 8c8e0d36e7e2980b13de6b2739f4791c89a6f79f

Diffstat:
M
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
@@ -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))
   
   ;; ------------------------------------