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

updated macro stepper for change in Module language

Browse Source 
svn: r9940
This commit is contained in:
Ryan Culpepper 2008-05-23 05:11:26 +00:00
parent 6db00dbd9c
commit 268e1c858e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/macro-debugger/view/stepper.ss
View File

@ -403,7 +403,8 @@
;; adjust-deriv/top : Derivation -> Derivation ;; adjust-deriv/top : Derivation -> Derivation
(define/private (adjust-deriv/top deriv) (define/private (adjust-deriv/top deriv)
(if (syntax-source (wderiv-e1 deriv)) (if (or (syntax-source (wderiv-e1 deriv))
(p:module? deriv))
deriv deriv
;; It's not original... ;; It's not original...
;; Strip out mzscheme's top-interactions ;; Strip out mzscheme's top-interactions