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

svn: r9945

original commit: 1fcfc8a8e4f0bd26cc22e02642fe3ca08de0b173

collects/macro-debugger/model/reductions-config.ss

@@ -10,6 +10,10 @@
          "context.ss"
          "steps.ss")
 
+(define-syntax-rule (STRICT-CHECKS form ...)
+  (when #f
+    form ... (void)))
+
 (define state/c (or/c state? false/c))
 (define context/c any/c)
 (define big-context/c any/c)
@@ -277,8 +281,13 @@
            (loop (unbox from) (unbox to))]
           [(and (struct? from) (struct? to))
            (loop (struct->vector from) (struct->vector to))]
+          [(eqv? from to)
+           (void)]
           [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)
                      "from:\n~e\n\nto:\n~e\n\n"
                      (stx->datum from)