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/lisp/ao_lisp_os.h | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/lisp/ao_lisp_os.h')

diff --git a/src/lisp/ao_lisp_os.h b/src/lisp/ao_lisp_os.h
index 55ffed50..b7bf7a2c 100644
--- 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)
 {
-- 
cgit v1.2.3