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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-31 03:44:39 -0800 (Mon, 31 Oct 2005)
New Revision: 1904

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (SigScm_WriteToPort, SigScm_DisplayToPort, print_ScmObj_internal,
    print_char, print_string): s/SigScm_Error\b/ERR/


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-10-31 11:22:18 UTC (rev 1903)
+++ branches/r5rs/sigscheme/debug.c	2005-10-31 11:44:39 UTC (rev 1904)
@@ -189,7 +189,7 @@
 
     ASSERT_PORTP(port);
     if (SCM_PORT_PORTDIRECTION(port) != PORT_OUTPUT)
-        SigScm_Error("output port is required");
+        ERR("output port is required");
 
     print_ScmObj_internal(port, obj, AS_WRITE);
 
@@ -208,7 +208,7 @@
 
     ASSERT_PORTP(port);
     if (SCM_PORT_PORTDIRECTION(port) != PORT_OUTPUT)
-        SigScm_Error("output port is required");
+        ERR("output port is required");
 
     print_ScmObj_internal(port, obj, AS_DISPLAY);
 
@@ -283,7 +283,7 @@
         print_constant(port, obj, otype);
         break;
     case ScmFreeCell:
-        SigScm_Error("You cannot print ScmFreeCell, may be GC bug.");
+        ERR("You cannot print ScmFreeCell, may be GC bug.");
         break;
     case ScmCPointer:
         snprintf(scm_portbuffer, PORTBUFFER_SIZE, "#<c_pointer %p>", SCM_C_POINTER_VALUE(obj));
@@ -322,7 +322,7 @@
         SCM_PORT_PRINT(port, SCM_CHAR_VALUE(obj));
         break;
     default:
-        SigScm_Error("print_char : unknown output type");
+        ERR("print_char : unknown output type");
         break;
     }
 }
@@ -364,7 +364,7 @@
         SCM_PORT_PRINT(port, SCM_STRING_STR(obj));
         break;
     default:
-        SigScm_Error("print_string : unknown output type");
+        ERR("print_string : unknown output type");
         break;
     }
 }