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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-06 08:35:53 -0800 (Tue, 06 Dec 2005)
New Revision: 2398

Modified:
   branches/r5rs/sigscheme/storage-gc.c
Log:
* sigscheme/storage-gc.c
  - (is_pointer_to_heap): Fix broken tag information reference


Modified: branches/r5rs/sigscheme/storage-gc.c
===================================================================
--- branches/r5rs/sigscheme/storage-gc.c	2005-12-06 16:33:23 UTC (rev 2397)
+++ branches/r5rs/sigscheme/storage-gc.c	2005-12-06 16:35:53 UTC (rev 2398)
@@ -437,9 +437,9 @@
 #if SCM_OBJ_COMPACT
     /* 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);
-    if (!SCM_CANBE_MARKED(ptr))
-        return 0;
 #else
     ptr = obj;
 #endif