X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_os.h;h=b7bf7a2cd825385abdfb9478a5bed5e1293cd3c7;hb=f7a0de052dd3be1565da882b87cf3fbb6c9084d2;hp=55ffed50361cf6a31cd33e9712f43e1bd301f62b;hpb=b3e0dcd2c133015d356a6fd5e654a2e5f8b33380;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)
 {