X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_read.h;h=34739c9ebfc601f29f11569319574874c93bfa8b;hp=209a3a87848c7fd02a0cb7cc9abaf5b5cbd8227d;hb=16061947d4376b41e596d87f97ec53ec29d17644;hpb=39df849f0717d92a7d5bdf8aa5904bd4db1b467f

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	/* +- */