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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-05 18:29:21 -0800 (Mon, 05 Dec 2005)
New Revision: 2386

Modified:
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/storage-gc.c
  - (allocate_heap): not to print debug information, because this
    function is called at initialization phase. So, output port
    is not yet initialized.

  - (mark_obj): no need to mark constants


Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-06 02:03:06 UTC (rev 2385)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-06 02:29:21 UTC (rev 2386)
@@ -282,8 +282,6 @@
     int i = 0;
     ScmObj heap, cell;
 
-    CDBG((SCM_DBG_GC, "allocate_heap num:%d size:%d", num_heap, HEAP_SIZE));
-
     /* allocate heap */
     (*heaps) = (ScmObj*)malloc(sizeof(ScmObj) * num_heap);
     (*freelist) = SCM_NULL;
@@ -405,7 +403,7 @@
         return;
 #else
     /* no need to mark SCM_NULL */
-    if (NULLP(obj))
+    if (SCM_CONSTANTP(obj))
         return;
 #endif
     /* avoid cyclic marking */