Macro stepper: fixed another foci type bug

svn: r5477
2007-01-27 19:18:28 +00:00 · 2007-01-27 19:18:28 +00:00 · 043c5e3d8c
commit 043c5e3d8c
parent c88dd61348
1 changed files with 1 additions and 1 deletions
--- 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)