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

Macro stepper: minor bug fix

Browse Source 
svn: r5460
This commit is contained in:
Ryan Culpepper 2007-01-25 19:16:14 +00:00
parent f4c8a45e2a
commit 3fe785014a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/macro-debugger/model/deriv-util.ss
View File

@ -1,6 +1,7 @@
(module deriv-util mzscheme (module deriv-util mzscheme
(require "deriv.ss" (require "deriv.ss"
(lib "list.ss")
(lib "plt-match.ss")) (lib "plt-match.ss"))
(provide IntW (provide IntW
ErrW ErrW
@ -197,7 +198,8 @@
[(AnyQ p:rename (_ _ _ _ inner)) [(AnyQ p:rename (_ _ _ _ inner))
(loop inner)] (loop inner)]
[(AnyQ p:synth (_ _ _ subterms)) [(AnyQ p:synth (_ _ _ subterms))
(loops (map s:subterm-deriv subterms))] (loops (map s:subterm-deriv
(filter s:subterm? subterms)))]
[(AnyQ lderiv (_ _ derivs)) [(AnyQ lderiv (_ _ derivs))
(loops derivs)] (loops derivs)]