X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_builtin.c;h=e5370f9037bd4379aac7aaa12d573fb967f21401;hp=ccd13d075604467018cf6eb344f0c7cdc3941b9c;hb=12a1f6ad48f2b924f71239effeb90afca75a090f;hpb=5f8f0ed5cd5d4b4f793c602ed09f9b4bdb98f7e8

diff --git a/src/lisp/ao_lisp_builtin.c b/src/lisp/ao_lisp_builtin.c
index ccd13d07..e5370f90 100644
--- 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;