summaryrefslogtreecommitdiff
path: root/src/lisp/ao_lisp_poly.c
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2017-11-19 21:07:00 -0800
committerKeith Packard <keithp@keithp.com>2017-11-19 21:07:00 -0800
commit6d2f271a45759bd792d299f04a424d3382ef4798 (patch)
treea8a3e2f8538ab70a828f47f3ed87e62e2a0c5adc /src/lisp/ao_lisp_poly.c
parent12a1f6ad48f2b924f71239effeb90afca75a090f (diff)
altos/lisp: Add floats
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_poly.c')
-rw-r--r--src/lisp/ao_lisp_poly.c4
1 files changed, 4 insertions, 0 deletions
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 *