summaryrefslogtreecommitdiff
path: root/libguile/numbers.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r--libguile/numbers.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/numbers.h b/libguile/numbers.h
index bf33c473a..7889e0d61 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -144,7 +144,7 @@
#define SCM_COMPLEX_IMAG(x) (SCM_COMPLEX_MEM (x)->imag)
/* Each bignum is just an mpz_t stored in a double cell starting at word 1. */
-#define SCM_I_BIG_MPZ(x) (*((mpz_t *) (&(SCM_CELL_WORD_1(x)))))
+#define SCM_I_BIG_MPZ(x) (*((mpz_t *) (SCM_CELL_OBJECT_LOC((x),1))))
#define SCM_BIGP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_big)
#define SCM_NUMBERP(x) (SCM_INUMP(x) || SCM_NUMP(x))