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

macro stepper: workaround for occasional out-of-sync rename

Browse Source 
svn: r9945

original commit: 1fcfc8a8e4f0bd26cc22e02642fe3ca08de0b173
This commit is contained in:
Ryan Culpepper 2008-05-23 16:56:41 +00:00
parent 254f98d602
commit c627003c4b
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/macro-debugger/model/reductions-config.ss
View File

@ -10,6 +10,10 @@
"context.ss" "context.ss"
"steps.ss") "steps.ss")
(define-syntax-rule (STRICT-CHECKS form ...)
(when #f
form ... (void)))
(define state/c (or/c state? false/c)) (define state/c (or/c state? false/c))
(define context/c any/c) (define context/c any/c)
(define big-context/c any/c) (define big-context/c any/c)
@ -277,8 +281,13 @@
(loop (unbox from) (unbox to))] (loop (unbox from) (unbox to))]
[(and (struct? from) (struct? to)) [(and (struct? from) (struct? to))
(loop (struct->vector from) (struct->vector to))] (loop (struct->vector from) (struct->vector to))]
[(eqv? from to)
(void)]
[else [else
(unless (eqv? from to) ;; FIXME: bad rename indicates something out of sync
;; But for now, just drop it to avoid macro stepper error.
;; Only bad effect should be missed subterms (usually at phase1).
(STRICT-CHECKS
(fprintf (current-error-port) (fprintf (current-error-port)
"from:\n~e\n\nto:\n~e\n\n" "from:\n~e\n\nto:\n~e\n\n"
(stx->datum from) (stx->datum from)