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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-27 14:12:55 -0700 (Tue, 27 Sep 2005)
New Revision: 1622

Modified:
   branches/r5rs/sigscheme/debug.c
   branches/r5rs/sigscheme/operations-siod.c
Log:
* sigscheme/debug.c
  - (SigScm_CategorizedDebug): Fix broken printing
* sigscheme/operations-siod.c
  - (ScmOp_verbose): Fix raw value update with
    SigScm_SetVerboseLevel()
  - (SigScm_SetVerboseLevel): Modify the error message


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-09-27 20:48:39 UTC (rev 1621)
+++ branches/r5rs/sigscheme/debug.c	2005-09-27 21:12:55 UTC (rev 1622)
@@ -135,8 +135,10 @@
     va_list va;
 
     va_start(va, msg);
-    if (debug_mask & category)
-        SigScm_Debug(msg, va);
+    if (debug_mask & category) {
+        vfprintf(stderr, msg, va);
+        fprintf(stderr, "\n");
+    }
     va_end(va);
 }
 

Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-09-27 20:48:39 UTC (rev 1621)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-09-27 21:12:55 UTC (rev 1622)
@@ -170,7 +170,7 @@
         if (!INTP(CAR(args)))
             SigScm_ErrorObj("verbose : integer required but got ", args);
 
-        sscm_verbose_level = SCM_INT_VALUE(CAR(args));
+        SigScm_SetVerboseLevel(SCM_INT_VALUE(CAR(args)));
     }
 
     return Scm_NewInt(sscm_verbose_level);
@@ -184,7 +184,7 @@
 void SigScm_SetVerboseLevel(long level)
 {
     if (level < 0)
-        SigScm_Error("SigScm_SetVerboseLevel : negative number has given\n");
+        SigScm_Error("SigScm_SetVerboseLevel : negative value has been given\n");
 
     sscm_verbose_level = level;