summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-06 10:42:33 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-06 10:42:33 +0000
commit9c293a3d2f20f783cc59d749f4d6bcd09fbb0cd5 (patch)
tree470184d769743006356bb4b6c51f5cffd044933a
parent1fe56d60fda532eba3b4f689a671a2f939191e50 (diff)
downloadguile-9c293a3d2f20f783cc59d749f4d6bcd09fbb0cd5.tar.gz
(scm_is_eq): New.
-rw-r--r--libguile/tags.h3
1 files changed, 2 insertions, 1 deletions
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