Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 07:17:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-09-17 18:02:49 -04:00
parent 9555c48850
commit 2e35a84a68
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/cyclone/util.sld
View file

@ -605,8 +605,8 @@
(let ((renamed (gensym identifier)))
(env:define-variable! renamed identifier use-env)
;(env:define-variable! renamed val mac-env)
;(Cyc-write `(ER rename ,identifier to ,renamed) (current-output-port))
;(Cyc-display "\n" (current-output-port))
(Cyc-write `(ER rename ,identifier to ,renamed) (current-output-port))
(Cyc-display "\n" (current-output-port))
renamed)
;identifier ;; TESTING!
)
@ -640,11 +640,15 @@
(define (Cyc-er-compare? use-env)
(lambda (a b)
(let ((aval (env:lookup a use-env #f))
(bval (env:lookup b use-env #f)))
(if (and aval bval)
(eq? aval bval)
(eq? a b)))))
(let* ((aval (env:lookup a use-env #f))
(bval (env:lookup b use-env #f))
(result (if (and aval bval)
(eq? aval bval)
(eq? a b)))
)
;(Cyc-write `(compare ,a ,b ,aval ,bval ,result) (current-output-port))
;(Cyc-display "\n" (current-output-port))
result)))
;; Name-mangling.