Macro stepper: fixed another foci type bug

svn: r5477 original commit: 043c5e3d8cfd15ad62fd33342b1aeb24141cfb5f
2007-01-27 19:18:28 +00:00 · 2007-01-27 19:18:28 +00:00 · 2b70c4eb6f
commit 2b70c4eb6f
parent ee080b92eb
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)