altos/lisp: Character consts. String and assoc builtins.

[fw/altos] / src / lisp / ao_lisp_read.h

diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h
index f8bcd195fbc3788d982db5dc318201787a81b700..fc74a8e4972f80dd87dd6aac6e63ff564c701ad9 100644 (file)
--- a/src/lisp/ao_lisp_read.h
+++ b/src/lisp/ao_lisp_read.h
@@ -44,11 +44,10 @@
 # define IGNORE                0x0100  /* \0 - ' ' */
 # define BACKSLASH     0x0200  /* \ */
 # define VBAR          0x0400  /* | */
-# define TWIDDLE       0x0800  /* ~ */
-# define STRINGC       0x1000  /* " */
-# define POUND         0x2000  /* # */
+# define STRINGC       0x0800  /* " */
+# define POUND         0x1000  /* # */
 
-# define NOTNAME       (STRINGC|TWIDDLE|VBAR|COMMENT|ENDOFFILE|WHITE|SPECIAL)
+# define NOTNAME       (STRINGC|VBAR|COMMENT|ENDOFFILE|WHITE|SPECIAL)
 # define NUMBER                (DIGIT|SIGN)
 
 #endif /* _AO_LISP_READ_H_ */