[uim-commit] r1462 - in branches/r5rs: sigscheme uim

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-09 04:44:15 -0700 (Fri, 09 Sep 2005)
New Revision: 1462

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c (uim_scm_init) : Fix typo.
* sigscheme/operations.c (ScmOp_string_append) : Ditto.


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-09-09 11:37:33 UTC (rev 1461)
+++ branches/r5rs/sigscheme/operations.c	2005-09-09 11:44:15 UTC (rev 1462)
@@ -1555,7 +1555,7 @@
     for (strings = arg; !NULLP(strings); strings = CDR(strings)) {
         obj = CAR(strings);
         if (!STRINGP(obj))
-            SigScm_ErrorObj("string-append : list required but got ", obj);
+            SigScm_ErrorObj("string-append : string required but got ", obj);
 
         total_size += strlen(SCM_STRING_STR(obj));
         total_len  += SCM_STRING_LEN(obj);

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-09-09 11:37:33 UTC (rev 1461)
+++ branches/r5rs/uim/uim-scm.c	2005-09-09 11:44:15 UTC (rev 1462)
@@ -532,7 +532,7 @@
     uim_output = stderr;
 
   if (verbose_level && isdigit(verbose_level[0])) {
-    verbose_level = atoi(verbose_level) % 10;
+    vlevel = atoi(verbose_level) % 10;
   }
   uim_scm_set_verbose_level(vlevel);