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

Macro stepper: bug in match clause

Browse Source 
svn: r6183
This commit is contained in:
Ryan Culpepper 2007-05-08 21:22:55 +00:00
parent e4e5ec4074
commit 3cf3fe7ed9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/macro-debugger/model/hide.ss
View File

@ -692,13 +692,12 @@
;; Macros ;; Macros
[(AnyQ mrule (e1 e2 (? transformation? tx) next)) [(AnyQ mrule (e1 e2 (? error-wrap? ew) next))
(list (make-s:subterm #f ew))]
[(AnyQ mrule (e1 e2 tx next))
(recv [(subterms table) (for-transformation tx)] (recv [(subterms table) (for-transformation tx)]
(parameterize ((subterms-table table)) (parameterize ((subterms-table table))
(append subterms (for-deriv next))))] (append subterms (for-deriv next))))]
[(AnyQ mrule (e1 e2 (and ew (struct error-wrap (_ _ _))) next))
(list (make-s:subterm #f ew))]
[(AnyQ lift-deriv (e1 e2 first lifted-stx next)) [(AnyQ lift-deriv (e1 e2 first lifted-stx next))
#;(printf "encountered lift-deriv in seek mode!~n") #;(printf "encountered lift-deriv in seek mode!~n")