diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-04 02:27:11 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-04 02:27:11 -0800 |
| commit | d34f01110d8770ac99556901143a54c3d492cde0 (patch) | |
| tree | 40bad1c2643a9d85d9750c5a2a788e5c5138c85c /src/scheme/ao_scheme_read.h | |
| parent | 243baa14a62e3efe5ae792c73db75f9c2cb86abb (diff) | |
altos/scheme: Accept more escaped character constants
Allow all those specified in r7rs
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/scheme/ao_scheme_read.h')
| -rw-r--r-- | src/scheme/ao_scheme_read.h | 5 |
1 files changed, 2 insertions, 3 deletions
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) |