From 9c293a3d2f20f783cc59d749f4d6bcd09fbb0cd5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 6 Jul 2004 10:42:33 +0000 Subject: [PATCH] (scm_is_eq): New. --- libguile/tags.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/tags.h b/libguile/tags.h index 9b06cdc63..dd9012659 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -136,7 +136,8 @@ typedef unsigned long scm_t_bits; /* SCM values can not be compared by using the operator ==. Use the following * macro instead, which is the equivalent of the scheme predicate 'eq?'. */ -#define SCM_EQ_P(x, y) (SCM_UNPACK (x) == SCM_UNPACK (y)) +#define scm_is_eq(x, y) (SCM_UNPACK (x) == SCM_UNPACK (y)) +#define SCM_EQ_P scm_is_eq