altos/scheme: Allow unicode in lexer

[fw/altos] / src / scheme / tiny-test / ao_scheme_os.h

diff --git a/src/scheme/tiny-test/ao_scheme_os.h b/src/scheme/tiny-test/ao_scheme_os.h
index 7cfe39817d08153f65ea811f5a0662e3a6db9305..17d66ae35864dc587f308e5b2aa0ebf7ea275840 100644 (file)
--- a/src/scheme/tiny-test/ao_scheme_os.h
+++ b/src/scheme/tiny-test/ao_scheme_os.h
@@ -22,20 +22,7 @@
 #include <stdlib.h>
 #include <time.h>
 
-#undef AO_SCHEME_FEATURE_FLOAT
-#undef AO_SCHEME_FEATURE_VECTOR
-#undef AO_SCHEME_FEATURE_QUASI
-#undef AO_SCHEME_FEATURE_BIGINT
-
 #define AO_SCHEME_POOL_TOTAL   4096
-#define AO_SCHEME_SAVE         1
-
-extern int ao_scheme_getc(void);
-
-static inline void
-ao_scheme_os_flush() {
-       fflush(stdout);
-}
 
 static inline void
 ao_scheme_abort(void)
@@ -43,12 +30,6 @@ ao_scheme_abort(void)
        abort();
 }
 
-static inline void
-ao_scheme_os_led(int led)
-{
-       printf("leds set to 0x%x\n", led);
-}
-
 #define AO_SCHEME_JIFFIES_PER_SECOND   100
 
 static inline void