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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-09 11:41:25 -0800 (Fri, 09 Dec 2005)
New Revision: 2500

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (Scm_Type): more detail error message. handle ScmConstant.


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-09 16:13:04 UTC (rev 2499)
+++ branches/r5rs/sigscheme/storage.c	2005-12-09 19:41:25 UTC (rev 2500)
@@ -348,13 +348,22 @@
             return ScmCPointer;
         else if (C_FUNCPOINTERP(obj))
             return ScmCFuncPointer;
+
+        ERR("invalid others object : ptr = %p, car = %p, cdr = %p",
+            (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
     } else if (SCM_TAG_IMMP(obj)) {
         if (INTP(obj))
             return ScmInt;
         else if (CHARP(obj))
             return ScmChar;
+        else if (SCM_CONSTANTP(obj))
+            return ScmConstant;
+
+        ERR("invalid imm object : ptr = %p, car = %p, cdr = %p",
+            (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
     }
 
-    ERR("corrupted object");
+    ERR("corrupted object : ptr = %p, car = %p, cdr = %p",
+        (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
 }
 #endif /* SCM_OBJ_COMPACT */