diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-05-06 16:42:07 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-05-06 16:42:07 +0000 |
commit | fba8fdc0d35e47ebb53f8ad50091e9c7b32fa761 (patch) | |
tree | 715db466f3592ab62e6582639d91ca455c3f5d26 /libguile | |
parent | f7e69e2094d14125134e5cb6368d097416dc9a37 (diff) | |
download | guile-fba8fdc0d35e47ebb53f8ad50091e9c7b32fa761.tar.gz |
(SCM_I_BIG_MPZ): Use SCM_CELL_OBJECT_LOC instead of taking the address
of SCM_CELL_WORD_1, the latter being no longer an lvalue.
Diffstat (limited to 'libguile')
-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)) |