diff options
author | Andy Wingo <wingo@pobox.com> | 2011-10-24 18:13:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-10-24 18:55:43 +0200 |
commit | 8c5bb72920a41d165726a1b5a610d823971f1ca8 (patch) | |
tree | ed9e8b3b2ff7d617557a6c5796f088b509e910ec /libguile/smob.c | |
parent | fdecb44f3252e47ee98d95f3fe473ff898ddf27e (diff) | |
download | guile-8c5bb72920a41d165726a1b5a610d823971f1ca8.tar.gz |
add SCM_HEAP_OBJECT_P
* libguile/tags.h (SCM_HEAP_OBJECT_P): New macro, an alias for
SCM_NIMP.
* libguile/arrays.c:
* libguile/debug.c:
* libguile/foreign.c:
* libguile/gdbint.c:
* libguile/guardians.c:
* libguile/list.c:
* libguile/modules.c:
* libguile/options.c:
* libguile/smob.c:
* libguile/validate.h:
* libguile/weak-set.c:
* libguile/weak-table.c:
* libguile/weak-vector.c: Use it instead of SCM_NIMP or !SCM_IMP.
Diffstat (limited to 'libguile/smob.c')
-rw-r--r-- | libguile/smob.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/smob.c b/libguile/smob.c index 9098dbc3e..d7f1fb0e1 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -516,7 +516,7 @@ smob_mark (GC_word *addr, struct GC_ms_entry *mark_stack_ptr, mark_stack_ptr = SCM_I_CURRENT_THREAD->current_mark_stack_ptr; - if (SCM_NIMP (obj)) + if (SCM_HEAP_OBJECT_P (obj)) /* Mark the returned object. */ mark_stack_ptr = GC_MARK_AND_PUSH (SCM2PTR (obj), mark_stack_ptr, @@ -541,7 +541,7 @@ scm_gc_mark (SCM o) #define CURRENT_MARK_LIMIT \ ((struct GC_ms_entry *)(SCM_I_CURRENT_THREAD->current_mark_stack_limit)) - if (SCM_NIMP (o)) + if (SCM_HEAP_OBJECT_P (o)) { /* At this point, the `current_mark_*' fields of the current thread must be defined (they are set in `smob_mark ()'). */ |