altos/lisp: Add floats

[fw/altos] / src / lisp / ao_lisp_poly.c

diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c
index 94ecd042551014cf13c5e9c2ff9db7174d82ad56..e93e1192ed1636a53f5fd67bc65aca1d551101ef 100644 (file)
--- 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 *