[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