diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-05-13 16:21:11 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-05-13 19:30:00 +0200 |
| commit | 976509b8e47721c9b2f3d2422aabae26432ba5bb (patch) | |
| tree | 79181929352f6346a2426a12b325aac4ea9ed0ee | |
| parent | 4df2c014d78ad5a4d2de9af87254bbb32b627fc9 (diff) | |
| download | guile-976509b8e47721c9b2f3d2422aabae26432ba5bb.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.
| -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. |