Allow all those specified in r7rs
Signed-off-by: Keith Packard <keithp@keithp.com>
PRINTABLE, /* Y */
PRINTABLE, /* Z */
PRINTABLE, /* [ */
- PRINTABLE|BACKSLASH, /* \ */
+ PRINTABLE, /* \ */
PRINTABLE, /* ] */
PRINTABLE, /* ^ */
PRINTABLE, /* _ */
lex_class = 0;
c &= 0x7f;
switch (c) {
- case 'n':
- return '\n';
- case 'f':
- return '\f';
+ case 'a':
+ return '\a';
case 'b':
return '\b';
+ case 't':
+ return '\t';
+ case 'n':
+ return '\n';
case 'r':
return '\r';
+ case 'f':
+ return '\f';
case 'v':
return '\v';
- case 't':
- return '\t';
case '0':
case '1':
case '2':
if (lex_class & STRINGC) {
for (;;) {
c = lexc();
- if (lex_class & BACKSLASH)
+ if (c == '\\')
c = lex_quoted();
if (lex_class & (STRINGC|ENDOFFILE)) {
end_token();
v = _ao_scheme_bool_false;
break;
case STRING:
- string = ao_scheme_string_make(token_string);
+ string = ao_scheme_string_new(token_string);
if (string)
v = ao_scheme_string_poly(string);
else
# define ENDOFFILE 0x0080 /* end of file */
# define COMMENT 0x0100 /* ; */
# define IGNORE 0x0200 /* \0 - ' ' */
-# define BACKSLASH 0x0400 /* \ */
-# define STRINGC 0x0800 /* " */
-# define HEX_LETTER 0x1000 /* a-f A-F */
+# define STRINGC 0x0400 /* " */
+# define HEX_LETTER 0x0800 /* a-f A-F */
# define NOTNAME (STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL)
# define INTEGER (DIGIT|SIGN)