macro-stepper: add missing possible error location

svn: r16486 original commit: a49688e5c890945b83cc3b2fef3974b161a81fe9
2009-10-30 21:07:36 +00:00 · 2009-10-30 21:07:36 +00:00 · 1406c9b916
commit 1406c9b916
parent 7ad04446f4
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))