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

Bugfixes?

Browse source
This commit is contained in:
Justin Ethier 2015-09-01 22:45:24 -04:00
parent 1766552dee
commit 179d4008fb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/macros.sld
View file

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