X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_os.h;h=5fa3686b70ee5aaa9cc801eb2104cebcedf5f996;hb=97cf9df882291b9e494b2f64f84eb37357a6ab31;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..5fa3686b 100644
--- a/src/lisp/ao_lisp_os.h
+++ b/src/lisp/ao_lisp_os.h
@@ -22,9 +22,11 @@
 #include <stdlib.h>
 #include <time.h>
 
-static inline int
-ao_lisp_getc() {
-	return getchar();
+extern int ao_lisp_getc(void);
+
+static inline void
+ao_lisp_os_flush(void) {
+	fflush(stdout);
 }
 
 static inline void