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

[jun0 at freedesktop.org]

Author: jun0
Date: 2006-01-05 22:25:13 -0800 (Thu, 05 Jan 2006)
New Revision: 2802

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (scm_length): fix bug introduced with r2801.

Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2006-01-05 09:17:05 UTC (rev 2801)
+++ branches/r5rs/sigscheme/operations.c	2006-01-06 06:25:13 UTC (rev 2802)
@@ -814,7 +814,7 @@
     ScmObj slow;
     int len;
 
-#define LISTLEN_ENCODE_DOT(len)      (-(len))
+#define LISTLEN_ENCODE_DOT(len)      (-(len)-1)
 #define LISTLEN_ENCODE_CIRCULAR(len) (INT_MIN)
 
     slow = lst;