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

related to PR 12316
This commit is contained in:
Ryan Culpepper 2011-11-29 19:11:38 -07:00
parent 0db96352bf
commit df3a9d8c7f
2 changed files with 2 additions and 1 deletions

View File

@ -118,6 +118,7 @@
;; Evaluation
;; Answer = (listof LocalAction)
(Eval
(#:skipped null)
[((? LocalActions)) $1])
;; Prepare env for compilation

View File

@ -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