X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_read.c;fp=src%2Fscheme%2Fao_scheme_read.c;h=f9630d39e96ef92db8a109a69c071cd0ad45d535;hb=b446d9657cad0ff45f6f65c774d82cb9f2f65088;hp=a26965f2056aa73ef1fbb6e89839f986004bb13a;hpb=16061947d4376b41e596d87f97ec53ec29d17644;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c
index a26965f2..f9630d39 100644
--- 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;
 }