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

macro-debugger: another internal error bug

Browse Source 
svn: r18342

original commit: 6bb3b5f1b69ded26f0762abcf1c29e69439c790a
This commit is contained in:
Ryan Culpepper 2010-02-25 22:15:02 +00:00
parent f392ff8d8f
commit 6409d4b79a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -425,7 +425,7 @@
(let ([deriv* (adjust-deriv/lift deriv)])
deriv*))
;; adjust-deriv/lift : Derivation -> (list-of Derivation)
;; adjust-deriv/lift : Deriv -> Deriv/#f
(define/private (adjust-deriv/lift deriv)
(match deriv
[(Wrap lift-deriv (e1 e2 first lifted-stx second))
@ -442,8 +442,8 @@
;; adjust-deriv/top : Derivation -> Derivation
(define/private (adjust-deriv/top deriv)
(if (or (and #| (syntax-source (wderiv-e1 deriv)) |#
(syntax-original? (wderiv-e1 deriv)))
(if (or (not deriv)
(syntax-original? (wderiv-e1 deriv))
(p:module? deriv))
deriv
;; It's not original...