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/print.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/print.c')
-rw-r--r-- | libguile/print.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/print.c b/libguile/print.c index 8867e6b03..ca38d42d5 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -68,7 +68,9 @@ static const char *iflagnames[] = "#<XXX UNUSED LISP FALSE -- DO NOT USE -- SHOULD NEVER BE SEEN XXX>", "()", "#t", - "#<XXX UNUSED BOOLEAN -- DO NOT USE -- SHOULD NEVER BE SEEN XXX>", + "#<XXX UNUSED BOOLEAN 0 -- DO NOT USE -- SHOULD NEVER BE SEEN XXX>", + "#<XXX UNUSED BOOLEAN 1 -- DO NOT USE -- SHOULD NEVER BE SEEN XXX>", + "#<XXX UNUSED BOOLEAN 2 -- DO NOT USE -- SHOULD NEVER BE SEEN XXX>", "#<unspecified>", "#<undefined>", "#<eof>", |