diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-12 18:30:33 +0000 |
commit | f12677062e15015d7ef7d36fe3d103a77d1fefca (patch) | |
tree | e9ec3a99d2037b92f5c0c95e2a5b6e234b7ebb9d /libguile/fluids.h | |
parent | 67673f7594ecd4768b9e6db847949406a9e10091 (diff) | |
download | guile-f12677062e15015d7ef7d36fe3d103a77d1fefca.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/fluids.h')
-rw-r--r-- | libguile/fluids.h | 4 |
1 files changed, 2 insertions, 2 deletions
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 |