diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-06 17:29:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-06 17:31:43 -0800 |
| commit | 16061947d4376b41e596d87f97ec53ec29d17644 (patch) | |
| tree | f7ad08f8810b0ea78cf282048eacb46d441a2ee1 /src/scheme/ao_scheme_read.h | |
| parent | 39df849f0717d92a7d5bdf8aa5904bd4db1b467f (diff) | |
altos/scheme: Add ports. Split scheme code up.
And lots of other changes, including freeing unreferenced atoms.
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 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/scheme/ao_scheme_read.h b/src/scheme/ao_scheme_read.h index 209a3a87..34739c9e 100644 --- a/src/scheme/ao_scheme_read.h +++ b/src/scheme/ao_scheme_read.h @@ -35,9 +35,10 @@ # define FLOAT 10 #endif # define DOT 11 -# define BOOL 12 +# define TRUE_TOKEN 12 +# define FALSE_TOKEN 13 #ifdef AO_SCHEME_FEATURE_VECTOR -# define OPEN_VECTOR 13 +# define OPEN_VECTOR 14 #endif /* @@ -51,7 +52,8 @@ #else # define SPECIAL_QUASI 0 #endif -# define DOTC 0x0004 /* . */ +# +# define ALPHA 0x0004 /* A-Z a-z */ # define WHITE 0x0008 /* ' ' \t \n */ # define DIGIT 0x0010 /* [0-9] */ # define SIGN 0x0020 /* +- */ |