From 6d2f271a45759bd792d299f04a424d3382ef4798 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sun, 19 Nov 2017 21:07:00 -0800 Subject: altos/lisp: Add floats Signed-off-by: Keith Packard --- src/lisp/ao_lisp_poly.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/lisp/ao_lisp_poly.c') diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c index 94ecd042..e93e1192 100644 --- a/src/lisp/ao_lisp_poly.c +++ b/src/lisp/ao_lisp_poly.c @@ -60,6 +60,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 * -- cgit v1.2.3