www

commit 1b17558faa8f2ca063e2926f3cce5b53a334e6c0
parent d7456a2df631dd9f70456e4ac3a3987bca30facf
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 29 Nov 2011 19:11:38 -0700

macro-stepper: fix value of absent evaluations (local actions) on error
  related to PR 12316

original commit: df3a9d8c7fef26725a4aa5aa3269dd6a3454d3d1

Diffstat:
M
collects/macro-debugger/model/deriv-parser.rkt
 | 
1
+
M
collects/macro-debugger/model/reductions.rkt
 | 
2
+-

2 files changed, 2 insertions(+), 1 deletion(-)
diff --git 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
diff --git 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