X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_poly.c;h=d14f41513c1320837c70813b0c043adf3688996a;hb=b986a12b478a6d4ff550786d24aa8628dc0abe32;hp=94ecd042551014cf13c5e9c2ff9db7174d82ad56;hpb=5f8f0ed5cd5d4b4f793c602ed09f9b4bdb98f7e8;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 94ecd042..d14f4151 100644
--- a/src/lisp/ao_lisp_poly.c
+++ b/src/lisp/ao_lisp_poly.c
@@ -44,6 +44,10 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
 		.write = ao_lisp_frame_write,
 		.display = ao_lisp_frame_write,
 	},
+	[AO_LISP_FRAME_VALS] = {
+		.write = NULL,
+		.display = NULL,
+	},
 	[AO_LISP_LAMBDA] = {
 		.write = ao_lisp_lambda_write,
 		.display = ao_lisp_lambda_write,
@@ -60,6 +64,10 @@ static const struct ao_lisp_funcs ao_lisp_funcs[AO_LISP_NUM_TYPE] = {
 		.write = ao_lisp_bigint_write,
 		.display = ao_lisp_bigint_write,
 	},
+	[AO_LISP_FLOAT] = {
+		.write = ao_lisp_float_write,
+		.display = ao_lisp_float_write,
+	},
 };
 
 static const struct ao_lisp_funcs *