X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_mem.c;h=dc0008c4fba12a33e20c51a910f60388fa0ad27d;hb=6d2f271a45759bd792d299f04a424d3382ef4798;hp=d7c8d7a66dc5999c82436df0ecda201cb59efe4c;hpb=bd881a5b85d7cd4fb82127f92f32e089499b50cb;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index d7c8d7a6..dc0008c4 100644
--- a/src/lisp/ao_lisp_mem.c
+++ b/src/lisp/ao_lisp_mem.c
@@ -211,6 +211,16 @@ static const struct ao_lisp_root	ao_lisp_root[] = {
 		.type = &ao_lisp_cons_type,
 		.addr = (void **) &ao_lisp_read_stack,
 	},
+#ifdef AO_LISP_MAKE_CONST
+	{
+		.type = &ao_lisp_bool_type,
+		.addr = (void **) &ao_lisp_false,
+	},
+	{
+		.type = &ao_lisp_bool_type,
+		.addr = (void **) &ao_lisp_true,
+	},
+#endif
 };
 
 #define AO_LISP_ROOT	(sizeof (ao_lisp_root) / sizeof (ao_lisp_root[0]))
@@ -447,6 +457,9 @@ static const struct ao_lisp_type *ao_lisp_types[AO_LISP_NUM_TYPE] = {
 	[AO_LISP_FRAME] = &ao_lisp_frame_type,
 	[AO_LISP_LAMBDA] = &ao_lisp_lambda_type,
 	[AO_LISP_STACK] = &ao_lisp_stack_type,
+	[AO_LISP_BOOL] = &ao_lisp_bool_type,
+	[AO_LISP_BIGINT] = &ao_lisp_bigint_type,
+	[AO_LISP_FLOAT] = &ao_lisp_float_type,
 };
 
 static int