projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
altos/scheme: support %x format for scheme printf
[fw/altos]
/
src
/
scheme
/
ao_scheme_make_const.c
diff --git
a/src/scheme/ao_scheme_make_const.c
b/src/scheme/ao_scheme_make_const.c
index 79ba1bf19ba8aef9b15c65819ecac8021df43634..e34792c400c82ef15db87c52382b71167701bc62 100644
(file)
--- a/
src/scheme/ao_scheme_make_const.c
+++ b/
src/scheme/ao_scheme_make_const.c
@@
-220,7
+220,7
@@
ao_has_macro(ao_poly p)
list = cons->cdr;
p = AO_SCHEME_NIL;
- while (
list != AO_SCHEME_NIL && AO_SCHEME_IS_CONS
(list)) {
+ while (
ao_scheme_is_pair
(list)) {
cons = ao_scheme_poly_cons(list);
m = ao_has_macro(cons->car);
if (m) {