[uim-commit] r3047 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-31 11:26:00 -0800 (Tue, 31 Jan 2006)
New Revision: 3047

Modified:
   branches/r5rs/sigscheme/src/write.c
Log:
* sigscheme/src/write.c
  - (write_ss_scan): Fix 64-bit capability


Modified: branches/r5rs/sigscheme/src/write.c
===================================================================
--- branches/r5rs/sigscheme/src/write.c	2006-01-31 19:23:52 UTC (rev 3046)
+++ branches/r5rs/sigscheme/src/write.c	2006-01-31 19:26:00 UTC (rev 3047)
@@ -585,7 +585,7 @@
 static void
 write_ss_scan(ScmObj obj, write_ss_context *ctx)
 {
-    int i;
+    scm_int_t i, len;
     hash_entry *ent;
 
     /* (for-each mark-as-seen-or-return-if-familiar obj) */
@@ -624,7 +624,7 @@
             break;
 
         case ScmVector:
-            for (i = 0; i < SCM_VECTOR_LEN(obj); i++)
+            for (i = 0, len = SCM_VECTOR_LEN(obj); i < len; i++)
                 write_ss_scan(SCM_VECTOR_VEC(obj)[i], ctx);
             break;