Bugfixes?

This commit is contained in:
Justin Ethier 2015-09-01 22:45:24 -04:00
parent 1766552dee
commit 179d4008fb

View file

@ -58,7 +58,7 @@
((not macro)
(error "macro not found" exp))
(compiled-macro?
((Cyc-get-cvar (cdr macro))
((Cyc-get-cvar macro)
exp
(Cyc-er-rename mac-env)
Cyc-er-compare?))
@ -72,7 +72,7 @@
; (env (create-environment env-vars env-vals)))
(eval
(list
(cdr macro)
(Cyc-get-cvar macro)
(list 'quote exp)
(Cyc-er-rename mac-env)
Cyc-er-compare?)