From 5a0d619e38228d22868ad6a67bbc21f01204b9de Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sun, 18 Sep 2016 17:20:12 -0400 Subject: [PATCH] Added debugging --- scheme/cyclone/util.sld | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld index 533e3f88..14ab3f59 100644 --- a/scheme/cyclone/util.sld +++ b/scheme/cyclone/util.sld @@ -600,10 +600,14 @@ ;; Keep looking up a symbol until the original non-renamed symbol is found (define (find-original-sym sym) (let ((val (env:lookup sym use-env #f))) +;(Cyc-write `(find-original-sym ,sym ,val) (current-output-port)) +;(Cyc-display "\n" (current-output-port)) (if val (find-original-sym val) ;; Keep going sym))) ;; There was no rename, so sym is not renamed (lambda (a b) +;(Cyc-write `(Cyc-er-compare? ,a ,b) (current-output-port)) +;(Cyc-display "\n" (current-output-port)) (let* ((asym (find-original-sym a)) (bsym (find-original-sym b)) (result (eq? asym bsym)))