suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
related to PR 12316

original commit: df3a9d8c7fef26725a4aa5aa3269dd6a3454d3d1
This commit is contained in:
Ryan Culpepper 2011-11-29 19:11:38 -07:00
parent d7456a2df6
commit 1b17558faa
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/macro-debugger/model/deriv-parser.rkt
View File

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

2
collects/macro-debugger/model/reductions.rkt
View File

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