altos/lisp: add length, pack, unpack and flush

[fw/altos] / src / lisp / ao_lisp_os.h

diff --git a/src/lisp/ao_lisp_os.h b/src/lisp/ao_lisp_os.h
index 55ffed50361cf6a31cd33e9712f43e1bd301f62b..b7bf7a2cd825385abdfb9478a5bed5e1293cd3c7 100644 (file)
--- 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)
 {