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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-03 13:07:29 -0800 (Sat, 03 Dec 2005)
New Revision: 2340

Modified:
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/storage-gc.c
  - (mark_obj): temporally disable for SCM_OBJ_COMPACT


Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-03 20:59:00 UTC (rev 2339)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-03 21:07:29 UTC (rev 2340)
@@ -393,6 +393,10 @@
 
 static void mark_obj(ScmObj obj)
 {
+#if SCM_OBJ_COMPACT
+    /* TODO : Implement Here! */
+    ;
+#else /* SCM_OBJ_COMPACT */
     int i = 0;
 
 mark_loop:
@@ -443,6 +447,7 @@
     default:
         break;
     }
+#endif /* SCM_OBJ_COMPACT */
 }
 
 static void finalize_protected_var(void)