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/feature.h | |
| parent | 67673f7594ecd4768b9e6db847949406a9e10091 (diff) | |
| download | guile-f12677062e15015d7ef7d36fe3d103a77d1fefca.tar.gz | |
*** empty log message ***
Diffstat (limited to 'libguile/feature.h')
| -rw-r--r-- | libguile/feature.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/feature.h b/libguile/feature.h index d9132646e..5161db9c0 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -50,7 +50,7 @@ #include "libguile/__scm.h" #define SCM_HOOKP(x) (SCM_NIMP(x) && (SCM_TYP16 (x) == scm_tc16_hook)) -#define SCM_HOOK_ARITY(hook) (SCM_CARBITS (hook) >> 16) +#define SCM_HOOK_ARITY(hook) (SCM_UNPACK_CAR (hook) >> 16) #define SCM_HOOK_NAME(hook) SCM_CADR (hook) #define SCM_HOOK_PROCEDURES(hook) SCM_CDDR (hook) #define SCM_SET_HOOK_PROCEDURES(hook, procs) SCM_SETCDR (SCM_CDR (hook), procs) |