From bd881a5b85d7cd4fb82127f92f32e089499b50cb Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Thu, 16 Nov 2017 13:02:07 -0800 Subject: altos/lisp: Add non-cons cdr support The cdr of a cons can be any value; add support for lexing and printing them. Signed-off-by: Keith Packard --- src/lisp/ao_lisp_read.h | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/lisp/ao_lisp_read.h') diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h index 1c994d56..30dcac3f 100644 --- a/src/lisp/ao_lisp_read.h +++ b/src/lisp/ao_lisp_read.h @@ -22,6 +22,7 @@ # define QUOTE 4 # define STRING 5 # define NUM 6 +# define DOT 7 /* * character classes @@ -42,8 +43,9 @@ # define VBAR 0x00001000 /* | */ # define TWIDDLE 0x00002000 /* ~ */ # define STRINGC 0x00004000 /* " */ +# define DOTC 0x00008000 /* . */ -# define NOTNAME (STRINGC|TWIDDLE|VBAR|QUOTEC|COMMENT|ENDOFFILE|WHITE|KET|BRA) +# define NOTNAME (STRINGC|TWIDDLE|VBAR|QUOTEC|COMMENT|ENDOFFILE|WHITE|KET|BRA|DOTC) # define NUMBER (DIGIT|SIGN) #endif /* _AO_LISP_READ_H_ */ -- cgit v1.2.3