macro-stepper: fix value of absent evaluations (local actions) on error

related to PR 12316 original commit: df3a9d8c7fef26725a4aa5aa3269dd6a3454d3d1
2011-11-29 19:11:38 -07:00 · 2011-11-29 19:11:38 -07:00 · 1b17558faa
commit 1b17558faa
parent d7456a2df6
2 changed files with 2 additions and 1 deletions
--- a/collects/macro-debugger/model/deriv-parser.rkt
+++ b/collects/macro-debugger/model/deriv-parser.rkt
@ -118,6 +118,7 @@
    ;; Evaluation
    ;; Answer = (listof LocalAction)
    (Eval
+     (#:skipped null)
     [((? LocalActions)) $1])

    ;; Prepare env for compilation
--- a/collects/macro-debugger/model/reductions.rkt
+++ b/collects/macro-debugger/model/reductions.rkt
@ -221,7 +221,7 @@

    [(Wrap p:provide (e1 e2 rs ?1 inners ?2))
     (let ([wrapped-inners
-            (for/list ([inner inners])
+            (for/list ([inner (in-list inners)])
              (match inner
                [(Wrap deriv (e1 e2))
                 (make local-expansion e1 e2