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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-21 19:52:42 -0700 (Thu, 21 Jul 2005)
New Revision: 1007

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_let_star, ScmExp_letrec): fix error message


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-07-22 02:02:19 UTC (rev 1006)
+++ branches/r5rs/sigscheme/eval.c	2005-07-22 02:52:42 UTC (rev 1007)
@@ -811,7 +811,7 @@
 
     /* sanity check */
     if CHECK_2_ARGS(arg)
-	SigScm_Error("let : syntax error\n");
+	SigScm_Error("let* : syntax error\n");
 
     /* get bindings and body */
     bindings = SCM_CAR(arg);
@@ -849,7 +849,7 @@
 
     /* sanity check */
     if CHECK_2_ARGS(arg)
-	SigScm_Error("let : syntax error\n");
+	SigScm_Error("letrec : syntax error\n");
 
     /* get bindings and body */
     bindings = SCM_CAR(arg);