diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-31 15:59:57 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-03-31 15:59:57 +0000 |
commit | cffcab301343a983560c113fdf34af26315d2fe2 (patch) | |
tree | ab4aff368d7db05f0481982166de90e7769ecade /libguile/debug.h | |
parent | 7fa93bf8596468bf2171f590e0ca318e04cacca7 (diff) | |
download | guile-cffcab301343a983560c113fdf34af26315d2fe2.tar.gz |
Some more SCM/scm_bits_t and SCM-is-union issues.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index bae78b406..d5ae681dd 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -166,9 +166,10 @@ extern scm_debug_frame *scm_last_debug_frame; extern long scm_tc16_debugobj; -#define SCM_DEBUGOBJP(x) (SCM_NIMP(x) && (scm_tc16_debugobj == SCM_TYP16 (x))) -#define SCM_DEBUGOBJ_FRAME(x) SCM_CDR (x) -#define SCM_SET_DEBUGOBJ_FRAME(x, f) SCM_SETCDR (x, f) +#define SCM_DEBUGOBJP(x) (SCM_NIMP (x) \ + && (SCM_TYP16 (x) == scm_tc16_debugobj)) +#define SCM_DEBUGOBJ_FRAME(x) (SCM_CELL_WORD_1 (x)) +#define SCM_SET_DEBUGOBJ_FRAME(x, f) (SCM_SET_CELL_WORD_1 (x, f)) /* {Memoized Source} */ |