altos/scheme: Let readline know if there's a list in progress

[fw/altos] / src / scheme / ao_scheme_builtin.c

diff --git a/src/scheme/ao_scheme_builtin.c b/src/scheme/ao_scheme_builtin.c
index 49f218f6cb079c9b67add1e394e8c990a5e8ccdf..aa8186463ef6e9ff800db683f7bf883e5591ab57 100644 (file)
--- a/src/scheme/ao_scheme_builtin.c
+++ b/src/scheme/ao_scheme_builtin.c
@@ -636,7 +636,7 @@ ao_scheme_do_collect(struct ao_scheme_cons *cons)
        int     free;
        (void) cons;
        free = ao_scheme_collect(AO_SCHEME_COLLECT_FULL);
-       return ao_scheme_int_poly(free);
+       return ao_scheme_integer_poly(free);
 }
 
 ao_poly