diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-13 16:21:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-15 15:34:15 +0200 |
commit | 8787d7a17029a8add20bb8e652ec744bc5d4e6c4 (patch) | |
tree | 5f045b6141f3a4637be8957a834efa9cc603751b /libguile/tags.h | |
parent | 6bc898466b7ba398bb8ddf71e2cffb7082de0216 (diff) | |
download | guile-8787d7a17029a8add20bb8e652ec744bc5d4e6c4.tar.gz |
SCM is a union
* libguile/tags.h (SCM): Change to simply be a union containing
scm_t_bits.
(SCM_PACK, SCM_UNPACK): Adapt accordingly.
Diffstat (limited to 'libguile/tags.h')
-rw-r--r-- | libguile/tags.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/tags.h b/libguile/tags.h index c90838ef1..35b5d17c2 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -74,9 +74,9 @@ typedef scm_t_uintptr scm_t_bits; * desired level of type checking, be defined in several ways: */ #if (SCM_DEBUG_TYPING_STRICTNESS == 2) -typedef union SCM { struct { scm_t_bits n; } n; } SCM; -# define SCM_UNPACK(x) ((x).n.n) -# define SCM_PACK(x) ((SCM) { { (scm_t_bits) (x) } }) +typedef union SCM { scm_t_bits n; } SCM; +# define SCM_UNPACK(x) ((x).n) +# define SCM_PACK(x) ((SCM) { (scm_t_bits) (x) }) #elif (SCM_DEBUG_TYPING_STRICTNESS == 1) /* This is the default, which provides an intermediate level of compile time * type checking while still resulting in very efficient code. |