altos/scheme: Allow unicode in lexer

[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 f9630d39e96ef92db8a109a69c071cd0ad45d535..3575ff3fff14cfcdaa3ac3afec22a6c960243624 100644 (file)
--- a/src/scheme/ao_scheme_read.c
+++ b/src/scheme/ao_scheme_read.c
@@ -186,8 +186,9 @@ lexc(FILE *in)
                        c = 0;
                        lex_class = ENDOFFILE;
                } else {
-                       c &= 0x7f;
-                       lex_class = lex_classes[c];
+                       lex_class = PRINTABLE;
+                       if (c <= 0x7f)
+                               lex_class = lex_classes[c];
                }
        } while (lex_class & IGNORE);
        return c;