[uim-commit] r2528 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-11 15:28:36 -0800 (Sun, 11 Dec 2005)
New Revision: 2528

Modified:
   branches/r5rs/sigscheme/sigschemetype-compact.h
Log:
* sigscheme/sigschemetype-compact.h
  - (SCM_EQ): SCM_EQ should not care GC bit


Modified: branches/r5rs/sigscheme/sigschemetype-compact.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-11 22:09:30 UTC (rev 2527)
+++ branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-11 23:28:36 UTC (rev 2528)
@@ -685,7 +685,7 @@
 #define SCM_FALSE       ((ScmObj)(SCM_IMM_FALSE))
 #define SCM_TRUE        ((ScmObj)(SCM_IMM_TRUE))
 
-#define SCM_EQ(a, b)    ((a) == (b))
+#define SCM_EQ(a, b)    ((SCM_CAST_UINT(a) & ~SCM_GCBIT_MASK) == (SCM_CAST_UINT(b) & ~SCM_GCBIT_MASK))
 #define SCM_VALIDP(a)   (!SCM_TAG_IMM_INVALIDP(a))
 #define SCM_INVALIDP(a) (SCM_TAG_IMM_INVALIDP(a))
 #define SCM_NULLP(a)    (SCM_TAG_IMM_NULLP(a))