(scm_is_eq): New.

diff --git a/libguile/tags.h b/libguile/tags.h
index 9b06cdc..dd90126 100644 (file)
--- 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
 
 \f