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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-06 08:27:14 -0800 (Fri, 06 Jan 2006)
New Revision: 2812

Modified:
   branches/r5rs/sigscheme/operations-nonstd.c
Log:
* sigscheme/operations-nonstd.c
  - (scm_p_lengthstar): Follow the renaming in r2810


Modified: branches/r5rs/sigscheme/operations-nonstd.c
===================================================================
--- branches/r5rs/sigscheme/operations-nonstd.c	2006-01-06 16:23:05 UTC (rev 2811)
+++ branches/r5rs/sigscheme/operations-nonstd.c	2006-01-06 16:27:14 UTC (rev 2812)
@@ -252,8 +252,8 @@
 
     len = scm_length(lst);
     if (!SCM_LISTLEN_PROPERP(len)) { /* make fast path for proper list */
-        if (SCM_LISTLEN_DOTP(len))
-            len = -SCM_LISTLEN_DOT(len);
+        if (SCM_LISTLEN_DOTTEDP(len))
+            len = -SCM_LISTLEN_DOTTED(len);
         else if (SCM_LISTLEN_CIRCULARP(len))
             return SCM_FALSE;
     }