diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-16 13:02:07 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-16 13:02:07 -0800 |
| commit | bd881a5b85d7cd4fb82127f92f32e089499b50cb (patch) | |
| tree | bf4f5f985e37544b1ee64a65020b809ee994e227 /src/lisp/ao_lisp_read.h | |
| parent | 50a095fbe828b6ec3159d27930712df6b1b519b4 (diff) | |
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 <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_read.h')
| -rw-r--r-- | src/lisp/ao_lisp_read.h | 4 |
1 files changed, 3 insertions, 1 deletions
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_ */ |