X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_os.h;h=b7bf7a2cd825385abdfb9478a5bed5e1293cd3c7;hb=ddb4b8d90478ae324aa207a7541352c1ac9451ee;hp=55ffed50361cf6a31cd33e9712f43e1bd301f62b;hpb=417161dbb36323b5a6572859dedad02ca92fc65c;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_os.h b/src/lisp/ao_lisp_os.h
index 55ffed50..b7bf7a2c 100644
--- a/src/lisp/ao_lisp_os.h
+++ b/src/lisp/ao_lisp_os.h
@@ -27,6 +27,11 @@ ao_lisp_getc() {
 	return getchar();
 }
 
+static inline void
+ao_lisp_os_flush() {
+	fflush(stdout);
+}
+
 static inline void
 ao_lisp_abort(void)
 {