From d34f01110d8770ac99556901143a54c3d492cde0 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Thu, 4 Jan 2018 02:27:11 -0800 Subject: altos/scheme: Accept more escaped character constants Allow all those specified in r7rs Signed-off-by: Keith Packard --- src/scheme/ao_scheme_read.h | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/scheme/ao_scheme_read.h') diff --git a/src/scheme/ao_scheme_read.h b/src/scheme/ao_scheme_read.h index d0b9b36a..209a3a87 100644 --- a/src/scheme/ao_scheme_read.h +++ b/src/scheme/ao_scheme_read.h @@ -63,9 +63,8 @@ # 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) -- cgit v1.2.3