X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp.h;h=341996c0c2e6d1acaa99a905fc5a22a6d7cd38a0;hp=9a48a44554d119249559ca8993855353894d2897;hb=435a91ae3889cd361b543f4555a78488905e0bbb;hpb=cc76030d669600051fbb42a8cf85701aaaf5f5b7

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 9a48a445..341996c0 100644
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -136,7 +136,7 @@ ao_lisp_is_const(ao_poly poly) {
 
 #define AO_LISP_IS_CONST(a)	(ao_lisp_const <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_lisp_const + AO_LISP_POOL_CONST)
 #define AO_LISP_IS_POOL(a)	(ao_lisp_pool <= ((uint8_t *) (a)) && ((uint8_t *) (a)) < ao_lisp_pool + AO_LISP_POOL)
-#define AO_LISP_IS_INT(p)	(ao_lisp_base_type(p) == AO_LISP_INT);
+#define AO_LISP_IS_INT(p)	(ao_lisp_poly_base_type(p) == AO_LISP_INT)
 
 void *
 ao_lisp_ref(ao_poly poly);