Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added debugging

Browse source
This commit is contained in:
Justin Ethier 2016-09-18 17:20:12 -04:00
parent 3e5dae998b
commit 5a0d619e38
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/util.sld
View file

@ -600,10 +600,14 @@
;; Keep looking up a symbol until the original non-renamed symbol is found ;; Keep looking up a symbol until the original non-renamed symbol is found
(define (find-original-sym sym) (define (find-original-sym sym)
(let ((val (env:lookup sym use-env #f))) (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 (if val
(find-original-sym val) ;; Keep going (find-original-sym val) ;; Keep going
sym))) ;; There was no rename, so sym is not renamed sym))) ;; There was no rename, so sym is not renamed
(lambda (a b) (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)) (let* ((asym (find-original-sym a))
(bsym (find-original-sym b)) (bsym (find-original-sym b))
(result (eq? asym bsym))) (result (eq? asym bsym)))