From a3535e28a74055c3b303dbb4111cb3d38c2817e2 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Wed, 9 Nov 2016 16:22:43 -0800
Subject: altos/lisp: Clean up OS integration bits, add defun

Provide an abstraction for the OS interface so that it
can build more cleanly on Linux and AltOS. Add defun macro.

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_read.c | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'src/lisp/ao_lisp_read.c')

diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c
index bc1eb36b..3a2ef7f1 100644
--- a/src/lisp/ao_lisp_read.c
+++ b/src/lisp/ao_lisp_read.c
@@ -156,19 +156,7 @@ lex_get()
 		c = lex_unget_c;
 		lex_unget_c = 0;
 	} else {
-#if AO_LISP_ALTOS
-		static uint8_t	at_eol;
-
-		if (at_eol) {
-			ao_cmd_readline();
-			at_eol = 0;
-		}
-		c = ao_cmd_lex();
-		if (c == '\n')
-			at_eol = 1;
-#else
-		c = getchar();
-#endif
+		c = ao_lisp_getc();
 	}
 	return c;
 }
-- 
cgit v1.2.3