www

commit 2b70c4eb6f4730182c7402ae5d444dadd65a352c
parent ee080b92ebaf6d2ef9e6de71a9c0d3631f2b30fe
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Sat, 27 Jan 2007 19:18:28 +0000

Macro stepper: fixed another foci type bug

svn: r5477

original commit: 043c5e3d8cfd15ad62fd33342b1aeb24141cfb5f

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
@@ -188,7 +188,7 @@
   ;; stumble : syntax exception -> Reduction
   (define (stumble stx exn)
     (make-misstep (current-derivation) (big-context) 'error (context)
-                  stx stx exn))
+                  (foci stx) stx exn))
   
   ;; stumble/E : syntax(s) syntax exn -> Reduction
   (define (stumble/E focus Ee1 exn)