summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-05-06 16:42:07 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-05-06 16:42:07 +0000
commitfba8fdc0d35e47ebb53f8ad50091e9c7b32fa761 (patch)
tree715db466f3592ab62e6582639d91ca455c3f5d26 /libguile
parentf7e69e2094d14125134e5cb6368d097416dc9a37 (diff)
downloadguile-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.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))