From 7f7e2431f5d1f7c1782ed6e774ccfc70fb4c87cf Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Fri, 11 Nov 2016 00:28:31 -0800
Subject: altos/lisp: add length, pack, unpack and flush

lots more builtins

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lambdakey-v1.0/ao_lisp_os.h | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to '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 df158f6a..1993ac44 100644
--- 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)
 {
-- 
cgit v1.2.3