X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme.h;fp=src%2Fscheme%2Fao_scheme.h;h=48d0149bebacb263281eefb75cb5c31d964d514c;hb=9d1131da911f7220ac8b6cb7ba5a0afd3deef657;hp=521ec10505296a70b3782679b821237e1fc0cff3;hpb=b866b3ca249dce61f8ff16c8d28514d1b80386d7;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme.h b/src/scheme/ao_scheme.h
index 521ec105..48d0149b 100644
--- a/src/scheme/ao_scheme.h
+++ b/src/scheme/ao_scheme.h
@@ -150,6 +150,7 @@ ao_scheme_is_const(ao_poly poly) {
 #define AO_SCHEME_IS_CONST(a)	(ao_scheme_const <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_scheme_const + AO_SCHEME_POOL_CONST)
 #define AO_SCHEME_IS_POOL(a)	(ao_scheme_pool <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_scheme_pool + AO_SCHEME_POOL)
 #define AO_SCHEME_IS_INT(p)	(ao_scheme_poly_base_type(p) == AO_SCHEME_INT)
+#define AO_SCHEME_IS_CONS(p)	(ao_scheme_poly_base_type(p) == AO_SCHEME_CONS)
 
 void *
 ao_scheme_ref(ao_poly poly);