macro-stepper: add missing possible error location

svn: r16486
2009-10-30 21:07:36 +00:00 · 2009-10-30 21:07:36 +00:00 · a49688e5c8
commit a49688e5c8
parent 717e9390df
1 changed files with 2 additions and 2 deletions
--- a/collects/macro-debugger/model/deriv-parser.ss
+++ b/collects/macro-debugger/model/deriv-parser.ss
@ -102,8 +102,8 @@
      ($2 $1 $3)])
    (CheckImmediateMacro/Inner
    (#:args le1 e2)
-     [()
-      (make p:stop le1 e2 null #f)]
+     [(!)
+      (make p:stop le1 e2 null $1)]
     [(visit Resolves (? MacroStep) return (? CheckImmediateMacro/Inner))
      ($3 $1 $2 ($5 $4 e2))]
     [(visit Resolves tag (? MacroStep) return (? CheckImmediateMacro/Inner))