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

yamaken at freedesktop.org yamaken at freedesktop.org
Fri Jan 6 07:52:09 PST 2006


Author: yamaken
Date: 2006-01-06 07:52:04 -0800 (Fri, 06 Jan 2006)
New Revision: 2809

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - Cosmetic change


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-06 15:51:03 UTC (rev 2808)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-06 15:52:04 UTC (rev 2809)
@@ -351,12 +351,12 @@
 /* result encoder/decoders for scm_length() */
 #define SCM_LISTLEN_ENCODE_DOT(len)      (-(len))
 #define SCM_LISTLEN_ENCODE_CIRCULAR(len) (INT_MIN)
-#define SCM_LISTLEN_PROPERP(len)     (0 <= (len))
-#define SCM_LISTLEN_CIRCULARP(len)   ((len) == INT_MIN)
-#define SCM_LISTLEN_DOTP(len)        ((len) < 0                              \
-                                      && !SCM_LISTLEN_CIRCULARP(len))
-#define SCM_LISTLEN_DOT(len)         (abs(len))
-#define SCM_LISTLEN_BEFORE_DOT(len)  (~(len))  /* abs(len) - 1 */
+#define SCM_LISTLEN_PROPERP(len)         (0 <= (len))
+#define SCM_LISTLEN_CIRCULARP(len)       ((len) == INT_MIN)
+#define SCM_LISTLEN_DOTP(len)            ((len) < 0                          \
+                                          && !SCM_LISTLEN_CIRCULARP(len))
+#define SCM_LISTLEN_DOT(len)             (abs(len))
+#define SCM_LISTLEN_BEFORE_DOT(len)      (~(len))  /* abs(len) - 1 */
 
 /*=======================================
    List Constructor



More information about the uim-commit mailing list