diff options
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r-- | libguile/numbers.h | 2 |
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)) |