diff --git a/core.scm b/core.scm
index 2bbed0b..3ecdd81 100644
a
|
b
|
|
517 | 517 | |
518 | 518 | (define (lookup id) |
519 | 519 | (cond ((find-id id (##sys#current-environment))) |
520 | | ((##sys#get id '##core#macro-alias)) |
| 520 | ((##sys#get id '##core#macro-alias) symbol? => values) |
521 | 521 | (else id))) |
522 | 522 | |
523 | 523 | (define (macro-alias var) |
diff --git a/eval.scm b/eval.scm
index f1c5bb6..aeaf173 100644
a
|
b
|
|
92 | 92 | |
93 | 93 | (define (rename var) |
94 | 94 | (cond ((find-id var (##sys#current-environment))) |
95 | | ((##sys#get var '##core#macro-alias)) |
| 95 | ((##sys#get var '##core#macro-alias) symbol? => values) |
96 | 96 | (else var))) |
97 | 97 | |
98 | 98 | (define (lookup var0 e) |