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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-05 04:47:08 -0700 (Mon, 05 Sep 2005)
New Revision: 1426

Modified:
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (SCM_LIST_1, SCM_LIST_2, SCM_LIST_3, SCM_LIST_4, SCM_LIST_5):
    Modify argument names


Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-05 11:28:59 UTC (rev 1425)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-05 11:47:08 UTC (rev 1426)
@@ -90,16 +90,16 @@
 
 #define SCM_CONS(kar, kdr) (Scm_NewCons(kar, kdr))
 
-#define SCM_LIST_1(elm1) \
-    (SCM_CONS((elm1), SCM_NULL))
-#define SCM_LIST_2(elm1, elm2) \
-    (SCM_CONS((elm1), SCM_LIST_1(elm2)))
-#define SCM_LIST_3(elm1, elm2, elm3) \
-    (SCM_CONS((elm1), SCM_LIST_2(elm2, elm3)))
-#define SCM_LIST_4(elm1, elm2, elm3, elm4) \
-    (SCM_CONS((elm1), SCM_LIST_3(elm2, elm3, elm4)))
-#define SCM_LIST_5(elm1, elm2, elm3, elm4, elm5) \
-    (SCM_CONS((elm1), SCM_LIST_4(elm2, elm3, elm4, elm5)))
+#define SCM_LIST_1(elm0) \
+    (SCM_CONS((elm0), SCM_NULL))
+#define SCM_LIST_2(elm0, elm1) \
+    (SCM_CONS((elm0), SCM_LIST_1(elm1)))
+#define SCM_LIST_3(elm0, elm1, elm2) \
+    (SCM_CONS((elm0), SCM_LIST_2(elm1, elm2)))
+#define SCM_LIST_4(elm0, elm1, elm2, elm3) \
+    (SCM_CONS((elm0), SCM_LIST_3(elm1, elm2, elm3)))
+#define SCM_LIST_5(elm0, elm1, elm2, elm3, elm4) \
+    (SCM_CONS((elm0), SCM_LIST_4(elm1, elm2, elm3, elm4)))
 
 #define SCM_DEFINE_ALIAS(newsym, sym)                                        \
     (SCM_SYMBOL_SET_VCELL(Scm_Intern(newsym),                                \