altos/lisp: Fix some scheme compat issues

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

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index ccd13d075604467018cf6eb344f0c7cdc3941b9c..e5370f9037bd4379aac7aaa12d573fb967f21401 100644 (file)
--- a/src/lisp/ao_lisp_builtin.c
+++ b/src/lisp/ao_lisp_builtin.c
@@ -533,9 +533,9 @@ ao_lisp_do_string_to_list(struct ao_lisp_cons *cons)
 }
 
 ao_poly
-ao_lisp_do_flush(struct ao_lisp_cons *cons)
+ao_lisp_do_flush_output(struct ao_lisp_cons *cons)
 {
-       if (!ao_lisp_check_argc(_ao_lisp_atom_flush, cons, 0, 0))
+       if (!ao_lisp_check_argc(_ao_lisp_atom_flush2doutput, cons, 0, 0))
                return AO_LISP_NIL;
        ao_lisp_os_flush();
        return _ao_lisp_bool_true;