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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-09 17:21:07 -0800 (Fri, 09 Dec 2005)
New Revision: 2504

Modified:
   branches/r5rs/sigscheme/sigschemetype-compact.h
Log:
* sigscheme/sigschemetype-compact.h
  - (SCM_CANBE_MARKED): remove null check. its a workaround code.


Modified: branches/r5rs/sigscheme/sigschemetype-compact.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-10 01:15:25 UTC (rev 2503)
+++ branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-10 01:21:07 UTC (rev 2504)
@@ -702,11 +702,7 @@
 #define SCM_IS_MARKED(a)   ((SCM_CAST_CAR_UINT(a) & SCM_GCBIT_MASK) == 0x0)
 #define SCM_IS_UNMARKED(a) (!SCM_IS_MARKED(a))
 
-/* FIXME: currently, NULL value is sometimes passed to this macro.
- * The invalid objects are always on the c stack, so we missed something.
- * To reject it, we check the value of (a) temporally, but need to investigate
- * the further reason of this problem. */
-#define SCM_CANBE_MARKED(a)   ((a) && !SCM_TAG_IMMP(a))
+#define SCM_CANBE_MARKED(a)   (!SCM_TAG_IMMP(a))
 #define SCM_STRIP_TAG_INFO(a) (SCM_CAST_UINT(a) & SCM_VALUE_MASK)
 
 /* When we sweep the object, we have no type information because the pointer is