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

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

diff --git a/src/test/ao_lisp_os.h b/src/test/ao_lisp_os.h
index 19bd4f64df3237b9a593ec1e470d2c037b4e4fe4..c979697eba5bae34f5a8363a6c6b68ed8a805b9f 100644 (file)
--- a/src/test/ao_lisp_os.h
+++ b/src/test/ao_lisp_os.h
@@ -24,6 +24,11 @@
 
 extern int ao_lisp_getc(void);
 
+static inline void
+ao_lisp_os_flush() {
+       fflush(stdout);
+}
+
 static inline void
 ao_lisp_abort(void)
 {