[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