diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-17 15:05:20 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-17 15:05:20 +0000 |
commit | b0c545678a42b61318a2eefed504c19aee0a7bd9 (patch) | |
tree | 4c4a08201a1953ea8e2e0136772bf31231f0272e /libguile/eval.h | |
parent | 2891588bee5b48bcc0110f046081967550443ff6 (diff) | |
download | guile-b0c545678a42b61318a2eefed504c19aee0a7bd9.tar.gz |
* eval.c (scm_unmemocar): Use macros to test for gloc cell.
* eval.h (SCM_IFRAME, SCM_IDIST), weaks.h (SCM_IS_WHVEC_ANY): Added missing
call to SCM_UNPACK.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r-- | libguile/eval.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 0b163f77f..25e12e36e 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -81,9 +81,10 @@ extern SCM scm_eval_options_interface (SCM setting); #define SCM_ICDR (0x00080000L) #define SCM_IFRINC (0x00000100L) #define SCM_IDSTMSK (-SCM_IDINC) -#define SCM_IFRAME(n) ((int)((SCM_ICDR-SCM_IFRINC)>>8) & ((int)(n)>>8)) -#define SCM_IDIST(n) (((unsigned long)(n))>>20) -#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK(n)) +#define SCM_IFRAME(n) ((int)((SCM_ICDR-SCM_IFRINC)>>8) \ + & (SCM_UNPACK (n) >> 8)) +#define SCM_IDIST(n) (SCM_UNPACK (n) >> 20) +#define SCM_ICDRP(n) (SCM_ICDR & SCM_UNPACK (n)) |