From 1b17558faa8f2ca063e2926f3cce5b53a334e6c0 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 29 Nov 2011 19:11:38 -0700
Subject: [PATCH] macro-stepper: fix value of absent evaluations (local
 actions) on error   related to PR 12316

original commit: df3a9d8c7fef26725a4aa5aa3269dd6a3454d3d1
---
 collects/macro-debugger/model/deriv-parser.rkt | 1 +
 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
index 48c37e7..d238e74 100644
--- 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
index a7ae869..7fe9d9a 100644
--- 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