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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-05 00:11:24 -0800 (Sat, 05 Nov 2005)
New Revision: 1992

Modified:
   branches/r5rs/sigscheme/operations-siod.c
   branches/r5rs/sigscheme/operations-srfi1.c
Log:
* sigscheme/operations-siod.c
  - (ScmOp_verbose): fix typo
* sigscheme/operations-srfi1.c
  - (ScmOp_SRFI1_lengthplus): fix typo
  - (ScmOp_SRFI1_concatenate): fix typo


Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-11-05 08:10:00 UTC (rev 1991)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-11-05 08:11:24 UTC (rev 1992)
@@ -195,7 +195,7 @@
 
 ScmObj ScmOp_verbose(ScmObj args)
 {
-    DECLARE_FUNCTION("verbose", ProcedureFixed1);
+    DECLARE_FUNCTION("verbose", ProcedureVariadic0);
 
     if (!NULLP(args)) {
         ASSERT_INTP(CAR(args));

Modified: branches/r5rs/sigscheme/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi1.c	2005-11-05 08:10:00 UTC (rev 1991)
+++ branches/r5rs/sigscheme/operations-srfi1.c	2005-11-05 08:11:24 UTC (rev 1992)
@@ -630,7 +630,7 @@
 ==============================================================================*/
 ScmObj ScmOp_SRFI1_lengthplus(ScmObj lst)
 {
-    DECLARE_FUNCTION("length+", ProcedureFixed0);
+    DECLARE_FUNCTION("length+", ProcedureFixed1);
 
     /* FIXME!: remove expensive circular_listp */
     if (NFALSEP(ScmOp_SRFI1_circular_listp(lst)))
@@ -642,7 +642,7 @@
 ScmObj ScmOp_SRFI1_concatenate(ScmObj args)
 {
     ScmObj lsts_of_lst = CAR(args);
-    DECLARE_FUNCTION("concatenate", ProcedureFixed0);
+    DECLARE_FUNCTION("concatenate", ProcedureVariadic0);
 
 #if SCM_STRICT_ARGCHECK
     if (!NULLP(CDR(args)))