summaryrefslogtreecommitdiff
path: root/libguile/tags.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-13 16:21:11 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-15 15:34:15 +0200
commit8787d7a17029a8add20bb8e652ec744bc5d4e6c4 (patch)
tree5f045b6141f3a4637be8957a834efa9cc603751b /libguile/tags.h
parent6bc898466b7ba398bb8ddf71e2cffb7082de0216 (diff)
downloadguile-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.h6
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.