summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index 78be35a4e..fc42886ba 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -260,8 +260,7 @@ make_lazy_catch (struct lazy_catch *c)
SCM_RETURN_NEWSMOB (tc16_lazy_catch, c);
}
-#define SCM_LAZY_CATCH_P(obj) \
- (SCM_NIMP (obj) && (SCM_UNPACK_CAR (obj) == tc16_lazy_catch))
+#define SCM_LAZY_CATCH_P(obj) (SCM_SMOB_PREDICATE (tc16_lazy_catch, obj))
/* Exactly like scm_internal_catch, except: