altos/scheme: Accept more escaped character constants

[fw/altos] / src / scheme / ao_scheme_read.h

diff --git a/src/scheme/ao_scheme_read.h b/src/scheme/ao_scheme_read.h
index 1aa11a3a025b284e1e79b349fda34bdb2872cbca..209a3a87848c7fd02a0cb7cc9abaf5b5cbd8227d 100644 (file)
--- a/src/scheme/ao_scheme_read.h
+++ b/src/scheme/ao_scheme_read.h
@@ -63,12 +63,12 @@
 # define ENDOFFILE     0x0080  /* end of file */
 # define COMMENT       0x0100  /* ; */
 # define IGNORE                0x0200  /* \0 - ' ' */
-# define BACKSLASH     0x0400  /* \ */
-# define STRINGC       0x0800  /* " */
-# define POUND         0x1000  /* # */
+# define STRINGC       0x0400  /* " */
+# define HEX_LETTER    0x0800  /* a-f A-F */
 
 # define NOTNAME       (STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL)
 # define INTEGER       (DIGIT|SIGN)
 # define NUMBER                (INTEGER|FLOATC)
+# define HEX_DIGIT     (DIGIT|HEX_LETTER)
 
 #endif /* _AO_SCHEME_READ_H_ */