[uim-commit] r1606 - branches/r5rs/sigscheme
yamaken at freedesktop.org
yamaken at freedesktop.org
Mon Sep 26 19:53:16 PDT 2005
Author: yamaken
Date: 2005-09-26 19:53:13 -0700 (Mon, 26 Sep 2005)
New Revision: 1606
Added:
branches/r5rs/sigscheme/scm_functype_mand_max15.diff
Log:
* sigscheme/scm_functype_mand_max15.diff
- New file
- Apply this patch if you really want 6+ unfolded arguments
Added: branches/r5rs/sigscheme/scm_functype_mand_max15.diff
===================================================================
--- branches/r5rs/sigscheme/scm_functype_mand_max15.diff 2005-09-27 02:48:24 UTC (rev 1605)
+++ branches/r5rs/sigscheme/scm_functype_mand_max15.diff 2005-09-27 02:53:13 UTC (rev 1606)
@@ -0,0 +1,968 @@
+Index: sigscheme/sigscheme.c
+===================================================================
+--- sigscheme/sigscheme.c (revision 1605)
++++ sigscheme/sigscheme.c (working copy)
+@@ -548,6 +548,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED | 15);
++}
++#endif
++
+ void Scm_RegisterSyntaxFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*))
+ {
+ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 0);
+@@ -588,6 +658,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_FIXED_TAIL_REC | 15);
++}
++#endif
++
+ void Scm_RegisterSyntaxVariadic0(const char *name, ScmObj (*func)(ScmObj, ScmObj))
+ {
+ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 0);
+@@ -628,6 +768,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC | 15);
++}
++#endif
++
+ void Scm_RegisterSyntaxVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*))
+ {
+ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 0);
+@@ -668,6 +878,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_SYNTAX_VARIADIC_TAIL_REC | 15);
++}
++#endif
++
+ void Scm_RegisterProcedureFixed0(const char *name, ScmObj (*func)())
+ {
+ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 0);
+@@ -708,6 +988,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED | 15);
++}
++#endif
++
+ void Scm_RegisterProcedureFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*))
+ {
+ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 0);
+@@ -748,6 +1098,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_FIXED_TAIL_REC | 15);
++}
++#endif
++
+ void Scm_RegisterProcedureVariadic0(const char *name, ScmObj (*func)(ScmObj))
+ {
+ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 0);
+@@ -788,6 +1208,76 @@
+ }
+ #endif
+
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC | 15);
++}
++#endif
++
+ void Scm_RegisterProcedureVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*))
+ {
+ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 0);
+@@ -827,3 +1317,73 @@
+ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 5);
+ }
+ #endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 6);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 7);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 8);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 9);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 10);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 11);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 12);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 13);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 14);
++}
++#endif
++
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*))
++{
++ Scm_RegisterFunc(name, func, SCM_PROCEDURE_VARIADIC_TAIL_REC | 15);
++}
++#endif
+Index: sigscheme/sigscheme.h
+===================================================================
+--- sigscheme/sigscheme.h (revision 1605)
++++ sigscheme/sigscheme.h (working copy)
+@@ -202,6 +202,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterSyntaxFixed5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
+ void Scm_RegisterSyntaxFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterSyntaxFixedTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
+@@ -218,6 +248,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterSyntaxFixedTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
+ void Scm_RegisterSyntaxVariadic0(const char *name, ScmObj (*func)(ScmObj, ScmObj));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterSyntaxVariadic1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj));
+@@ -234,6 +294,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterSyntaxVariadic5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
+ void Scm_RegisterSyntaxVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterSyntaxVariadicTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmEvalState*));
+@@ -250,6 +340,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterSyntaxVariadicTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterSyntaxVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterSyntaxVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterSyntaxVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterSyntaxVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterSyntaxVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterSyntaxVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterSyntaxVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterSyntaxVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterSyntaxVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterSyntaxVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
+ void Scm_RegisterProcedureFixed0(const char *name, ScmObj (*func)());
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterProcedureFixed1(const char *name, ScmObj (*func)(ScmObj));
+@@ -266,6 +386,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterProcedureFixed5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureFixed6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureFixed7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureFixed8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureFixed9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureFixed10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureFixed11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureFixed12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureFixed13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureFixed14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureFixed15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
+ void Scm_RegisterProcedureFixedTailRec0(const char *name, ScmObj (*func)(ScmEvalState*));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterProcedureFixedTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
+@@ -282,6 +432,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterProcedureFixedTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureFixedTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureFixedTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureFixedTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureFixedTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureFixedTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureFixedTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureFixedTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureFixedTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureFixedTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureFixedTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
+ void Scm_RegisterProcedureVariadic0(const char *name, ScmObj (*func)(ScmObj));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterProcedureVariadic1(const char *name, ScmObj (*func)(ScmObj, ScmObj));
+@@ -298,6 +478,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterProcedureVariadic5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureVariadic6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureVariadic7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureVariadic8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureVariadic9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureVariadic10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureVariadic11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureVariadic12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureVariadic13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureVariadic14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureVariadic15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj));
++#endif
+ void Scm_RegisterProcedureVariadicTailRec0(const char *name, ScmObj (*func)(ScmObj, ScmEvalState*));
+ #if SCM_FUNCTYPE_MAND_MAX >= 1
+ void Scm_RegisterProcedureVariadicTailRec1(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmEvalState*));
+@@ -314,6 +524,36 @@
+ #if SCM_FUNCTYPE_MAND_MAX >= 5
+ void Scm_RegisterProcedureVariadicTailRec5(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++void Scm_RegisterProcedureVariadicTailRec6(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++void Scm_RegisterProcedureVariadicTailRec7(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++void Scm_RegisterProcedureVariadicTailRec8(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++void Scm_RegisterProcedureVariadicTailRec9(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++void Scm_RegisterProcedureVariadicTailRec10(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++void Scm_RegisterProcedureVariadicTailRec11(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++void Scm_RegisterProcedureVariadicTailRec12(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++void Scm_RegisterProcedureVariadicTailRec13(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++void Scm_RegisterProcedureVariadicTailRec14(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++void Scm_RegisterProcedureVariadicTailRec15(const char *name, ScmObj (*func)(ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmObj, ScmEvalState*));
++#endif
+
+ /* datas.c */
+ void SigScm_InitStorage(void);
+Index: sigscheme/eval.c
+===================================================================
+--- sigscheme/eval.c (revision 1605)
++++ sigscheme/eval.c (working copy)
+@@ -447,6 +447,46 @@
+ case 7:
+ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6]);
+ #endif
++#if SCM_FUNCTYPE_MAND_MAX >= 6
++ case 8:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 7
++ case 9:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 8
++ case 10:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 9
++ case 11:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 10
++ case 12:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 11
++ case 13:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 12
++ case 14:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 13
++ case 15:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 14
++ case 16:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14], argbuf[15]);
++#endif
++#if SCM_FUNCTYPE_MAND_MAX >= 15
++ case 17:
++ return (*func)(argbuf[0], argbuf[1], argbuf[2], argbuf[3], argbuf[4], argbuf[5], argbuf[6], argbuf[7], argbuf[8], argbuf[9], argbuf[10], argbuf[11], argbuf[12], argbuf[13], argbuf[14], argbuf[15], argbuf[16]);
++#endif
+ default:
+ SigScm_Error("Corrupted function: typecode=0x%x", type);
+ }
More information about the uim-commit
mailing list