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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-06 08:54:51 -0800 (Tue, 06 Dec 2005)
New Revision: 2399

Modified:
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/storage-gc.c
  - (is_pointer_to_heap):
    * Fix comment position
    * Rename a local variable


Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-06 16:35:53 UTC (rev 2398)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-06 16:54:51 UTC (rev 2399)
@@ -431,14 +431,14 @@
  */
 static int is_pointer_to_heap(ScmObj obj)
 {
-    ScmCell *head, *ptr;
+    ScmCell *heap, *ptr;
     int i;
 
 #if SCM_OBJ_COMPACT
+    if (!SCM_CANBE_MARKED(obj))
+        return 0;
     /* The pointer on the stack is 'tagged' to represent its types.
      * So we need to ignore the tag to get its real pointer value. */
-    if (!SCM_CANBE_MARKED(obj))
-        return 0;
     ptr = (ScmCell *)SCM_STRIP_TAG_INFO(obj);
 #else
     ptr = obj;
@@ -448,8 +448,8 @@
         return 0;
 
     for (i = 0; i < scm_heap_num; i++) {
-        head = scm_heaps[i];
-        if (head && head <= ptr && ptr < &head[SCM_HEAP_SIZE])
+        heap = scm_heaps[i];
+        if (heap && heap <= ptr && ptr < &heap[SCM_HEAP_SIZE])
             return 1;
     }