From f12677062e15015d7ef7d36fe3d103a77d1fefca Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 12 Mar 2000 18:30:33 +0000 Subject: *** empty log message *** --- libguile/fluids.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/fluids.h') diff --git a/libguile/fluids.h b/libguile/fluids.h index 94f522bd1..d2f3d5dde 100644 --- a/libguile/fluids.h +++ b/libguile/fluids.h @@ -75,8 +75,8 @@ extern long scm_tc16_fluid; -#define SCM_FLUIDP(x) (SCM_NIMP(x) && (SCM_CARBITS (x) == scm_tc16_fluid)) -#define SCM_FLUID_NUM(x) SCM_BITS (SCM_CDR(x)) +#define SCM_FLUIDP(x) (SCM_NIMP(x) && (SCM_UNPACK_CAR (x) == scm_tc16_fluid)) +#define SCM_FLUID_NUM(x) SCM_UNPACK (SCM_CDR(x)) /* The fastest way to acces/modify the value of a fluid. These macros do no error checking at all. You should only use them when you know -- cgit v1.2.3