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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-20 00:01:14 -0800 (Sun, 20 Nov 2005)
New Revision: 2179

Modified:
   branches/r5rs/sigscheme/debug.c
   branches/r5rs/sigscheme/error.c
Log:
* sigscheme/debug.c
  - (print_ScmObj_internal): Fix broken printing format for multiple
    values

* sigscheme/error.c
  - (Scm_ErrorObj): Remove redundant ": " of error message


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-11-20 07:46:11 UTC (rev 2178)
+++ branches/r5rs/sigscheme/debug.c	2005-11-20 08:01:14 UTC (rev 2179)
@@ -272,8 +272,8 @@
         SCM_PORT_PRINT(port, "#<subr continuation>");
         break;
     case ScmValuePacket:
-        SCM_PORT_PRINT(port, "#<values");
-        if (NULLP (SCM_VALUEPACKET_VALUES(obj)))
+        SCM_PORT_PRINT(port, "#<values ");
+        if (NULLP(SCM_VALUEPACKET_VALUES(obj)))
             SCM_PORT_PRINT(port, "()");
         else
             print_list(port, SCM_VALUEPACKET_VALUES(obj), otype);

Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-11-20 07:46:11 UTC (rev 2178)
+++ branches/r5rs/sigscheme/error.c	2005-11-20 08:01:14 UTC (rev 2179)
@@ -250,7 +250,7 @@
     ScmObj err_obj;
 
 #if HAVE_ASPRINTF
-    asprintf(&reason, "in %s: %s: ", func_name, msg);
+    asprintf(&reason, "in %s: %s", func_name, msg);
 #else /* HAVE_ASPRINTF */
     /* FIXME: provide replace asprintf */
     reason = strdup(msg);