diff options
author | Mark H Weaver <mhw@netris.org> | 2010-03-27 17:35:46 -0400 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-03-28 14:34:19 +0200 |
commit | f60c2c4e100b36e5ec2616ba7940280b57d952b9 (patch) | |
tree | 7f2bc085b100794a730d28f0e55b70d789f121c3 /libguile/boolean.c | |
parent | 98dcf051e00bb0b36b932b60e5bdce584f2acde4 (diff) | |
download | guile-f60c2c4e100b36e5ec2616ba7940280b57d952b9.tar.gz |
Renumber IFLAGSs so the first 8 are reserved for lisp booleans.
This enables more efficient implementations of several operations,
e.g. scm_is_lisp_bool, canonicalize_boolean, fast_boolean_not,
converting SCM booleans to C booleans, etc.
* libguile/tags.h: Renumber IFLAGs.
* libguile/print.c: Renumber iflagnames to match.
* libguile/boolean.c:
* libguile/boolean.h:
SCM_XXX_ANOTHER_BOOLEAN_DONT_USE --> SCM_XXX_ANOTHER_BOOLEAN_DONT_USE_0
Diffstat (limited to 'libguile/boolean.c')
-rw-r--r-- | libguile/boolean.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/boolean.c b/libguile/boolean.c index 1ca0d7853..3391d6ce5 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -49,7 +49,7 @@ verify (SCM_VALUES_DIFFER_IN_EXACTLY_ONE_BIT_POSITION \ (SCM_ELISP_NIL, SCM_EOL)); verify (SCM_VALUES_DIFFER_IN_EXACTLY_TWO_BIT_POSITIONS \ (SCM_ELISP_NIL, SCM_BOOL_F, SCM_BOOL_T, \ - SCM_XXX_ANOTHER_BOOLEAN_DONT_USE)); + SCM_XXX_ANOTHER_BOOLEAN_DONT_USE_0)); verify (SCM_VALUES_DIFFER_IN_EXACTLY_TWO_BIT_POSITIONS \ (SCM_ELISP_NIL, SCM_BOOL_F, SCM_EOL, \ SCM_XXX_ANOTHER_LISP_FALSE_DONT_USE)); |