[uim-commit] r3163 - branches/r5rs/sigscheme/src

[kzk at freedesktop.org]

Author: kzk
Date: 2006-03-10 04:40:05 -0800 (Fri, 10 Mar 2006)
New Revision: 3163

Modified:
   branches/r5rs/sigscheme/src/storage.c
Log:
* try to make storage-compact.h follow the recent changes

* sigscheme/src/storage.c
  - (scm_type): use PLAIN_ERR instead of ERR


Modified: branches/r5rs/sigscheme/src/storage.c
===================================================================
--- branches/r5rs/sigscheme/src/storage.c	2006-03-05 15:39:38 UTC (rev 3162)
+++ branches/r5rs/sigscheme/src/storage.c	2006-03-10 12:40:05 UTC (rev 3163)
@@ -438,7 +438,7 @@
             return ScmCFuncPointer;
         else if (FREECELLP(obj))
             return ScmFreeCell;
-        ERR("invalid others object: ptr = %p", (void *)obj);
+        PLAIN_ERR(" invalid others object: ptr = %p", (void *)obj);
 
     case SCM_TAG_IMM:
         if (INTP(obj))
@@ -447,10 +447,10 @@
             return ScmChar;
         else if (SCM_CONSTANTP(obj))
             return ScmConstant;
-        ERR("invalid imm object: ptr = %p", (void *)obj);
+        PLAIN_ERR("invalid imm object: ptr = %p", (void *)obj);
 
     default:
-        ERR("invalid object: ptr = %p", (void *)obj);
+        PLAIN_ERR("invalid object: ptr = %p", (void *)obj);
     }
 
     /* NOTREACHED */