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

yamaken at freedesktop.org yamaken at freedesktop.org
Sun Jan 8 23:26:18 PST 2006


Author: yamaken
Date: 2006-01-08 23:26:15 -0800 (Sun, 08 Jan 2006)
New Revision: 2861

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - Cosmetic change in accordance with doc/style. Suggest another rule
    for it if it's reasonable


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-09 07:18:14 UTC (rev 2860)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-09 07:26:15 UTC (rev 2861)
@@ -296,23 +296,23 @@
 #endif /* not SCM_STRICT_ARGCHECK */
 
 /* Destructively retreives the first element of a list. */
-#define POP(_lst)                                  \
+#define POP(_lst)                                                            \
     (SCM_MANGLE(tmp) = CAR(_lst), (_lst) = CDR(_lst), SCM_MANGLE(tmp))
 
 /* POP() with safety check. */
-#define SAFE_POP(_lst)                          \
+#define SAFE_POP(_lst)                                                       \
     (CONSP((_lst)) ? POP((_lst)) : SCM_INVALID)
 
 /* Like POP(), but signals an error if no argument is available. */
-#define MUST_POP_ARG(_lst)                                              \
+#define MUST_POP_ARG(_lst)                                                   \
     (CONSP(_lst) ? POP(_lst) : (ERR("missing argument(s)"), NULL))
 
-#define FOR_EACH_WHILE(_kar, _lst, _cond)       \
+#define FOR_EACH_WHILE(_kar, _lst, _cond)                                    \
     while ((_cond) && ((_kar) = POP((_lst)), 1))
 
 #define FOR_EACH(_kar, _lst) FOR_EACH_WHILE((_kar), (_lst), CONSP(_lst))
 
-#define FOR_EACH_PAIR(_subls, _lst)                                     \
+#define FOR_EACH_PAIR(_subls, _lst)                                          \
     for ((_subls) = (_lst); CONSP((_subls)); (_subls) = CDR(_subls))
 
 /*



More information about the uim-commit mailing list