diff options
Diffstat (limited to 'libguile/smob.h')
-rw-r--r-- | libguile/smob.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/smob.h b/libguile/smob.h index fd8ccc2b8..e1ba02456 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -87,7 +87,7 @@ do { \ #define SCM_SMOB_DATA(x) SCM_CDR (x) #define SCM_SET_SMOB_DATA(x, data) SCM_SETCDR (x, data) -#define SCM_TC2SMOBNUM(x) (0x0ff & ((x) >> 8)) +#define SCM_TC2SMOBNUM(x) (0x0ff & (SCM_ASWORD(x) >> 8)) #define SCM_SMOBNUM(x) (SCM_TC2SMOBNUM (SCM_CAR (x))) /* SCM_SMOBNAME can be 0 if name is missing */ #define SCM_SMOBNAME(smobnum) scm_smobs[smobnum].name |