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

[fw/altos] / src / lambdakey-v1.0 / ao_lisp_os.h

diff --git a/src/lambdakey-v1.0/ao_lisp_os.h b/src/lambdakey-v1.0/ao_lisp_os.h
index df158f6a06671f0f83b3acebe7893b80f5571230..1993ac442d86532a79a80dc4839cf7d2b0806f18 100644 (file)
--- a/src/lambdakey-v1.0/ao_lisp_os.h
+++ b/src/lambdakey-v1.0/ao_lisp_os.h
@@ -35,6 +35,12 @@ ao_lisp_getc() {
        return c;
 }
 
+static inline void
+ao_lisp_os_flush(void)
+{
+       flush();
+}
+
 static inline void
 ao_lisp_abort(void)
 {