altos/lambdakey-v1.0: Switch back to command buffered input

[fw/altos] / src / scheme / ao_scheme_read.c

diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c
index a26965f2056aa73ef1fbb6e89839f986004bb13a..f9630d39e96ef92db8a109a69c071cd0ad45d535 100644 (file)
--- a/src/scheme/ao_scheme_read.c
+++ b/src/scheme/ao_scheme_read.c
@@ -150,6 +150,10 @@ static const uint16_t      lex_classes[128] = {
 
 static int lex_unget_c;
 
+#ifndef ao_scheme_getc
+#define ao_scheme_getc(f) getc(f)
+#endif
+
 static inline int
 lex_get(FILE *in)
 {
@@ -158,7 +162,7 @@ lex_get(FILE *in)
                c = lex_unget_c;
                lex_unget_c = 0;
        } else {
-               c = getc(in);
+               c = ao_scheme_getc(in);
        }
        return c;
 }