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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-06 15:47:12 -0700 (Tue, 06 Sep 2005)
New Revision: 1445

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmOp_apply): Modify an error message


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-06 22:45:45 UTC (rev 1444)
+++ branches/r5rs/sigscheme/eval.c	2005-09-06 22:47:12 UTC (rev 1445)
@@ -223,8 +223,8 @@
   S-Expression Evaluation
 ===========================================================================*/
 /*
- * TODO: split function invocation handling off to a function and share it with
- * ScmOp_apply
+ * TODO: split function invocation handling off into a function and share it
+ * with ScmOp_apply
  */
 ScmObj ScmOp_eval(ScmObj obj, ScmObj env)
 {
@@ -483,7 +483,7 @@
     if CHECK_2_ARGS(args)
         SigScm_Error("apply : Wrong number of arguments\n");
     if (!NULLP(CDDR(args)))
-        SigScm_Error("apply : Doesn't support multiarg apply\n");
+        SigScm_Error("apply : Multiarg apply is not supported\n");
 
     /* 1st elem of list is proc */
     proc = CAR(args);