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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-25 04:51:06 -0700 (Sun, 25 Sep 2005)
New Revision: 1582

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (reduce, call_closure): Add lacking prototype decl


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-25 11:46:28 UTC (rev 1581)
+++ branches/r5rs/sigscheme/eval.c	2005-09-25 11:51:06 UTC (rev 1582)
@@ -81,7 +81,11 @@
 /*=======================================
   File Local Function Declarations
 =======================================*/
-static ScmObj call(ScmObj proc, ScmObj args, ScmEvalState *eval_state, int suppress_eval);
+static ScmObj reduce(ScmObj (*func)(), ScmObj args, ScmObj env,
+                     int suppress_eval);
+static ScmObj call_closure(ScmObj proc, ScmObj args, ScmEvalState *eval_state);
+static ScmObj call(ScmObj proc, ScmObj args, ScmEvalState *eval_state,
+                   int suppress_eval);
 static ScmObj map_eval(ScmObj args, ScmObj env);
 static ScmObj qquote_internal(ScmObj expr, ScmObj env, int nest);
 static ScmObj qquote_vector(ScmObj vec, ScmObj env, int nest);