X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_make_const.c;h=e34792c400c82ef15db87c52382b71167701bc62;hb=34f998d147d08e966daad1ab76c40906018d3d8d;hp=79ba1bf19ba8aef9b15c65819ecac8021df43634;hpb=fa6f4b331db9d37da6767005fd375b696485b46b;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_make_const.c b/src/scheme/ao_scheme_make_const.c
index 79ba1bf1..e34792c4 100644
--- 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) {