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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-08 14:28:19 -0800 (Tue, 08 Nov 2005)
New Revision: 2101

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (Scm_Type): handle ScmConstant, add error handling.


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-11-08 22:26:36 UTC (rev 2100)
+++ branches/r5rs/sigscheme/storage.c	2005-11-08 22:28:19 UTC (rev 2101)
@@ -335,6 +335,8 @@
 #if SCM_OBJ_COMPACT
 enum ScmObjType Scm_Type(ScmObj obj)
 {
+    DECLARE_INTERNAL_FUNCTION("Scm_Type");
+
     if (CONSP(obj))
         return ScmCons;
     else if (INTP(obj))
@@ -357,9 +359,15 @@
         return ScmPort;
     else if (CONTINUATIONP(obj))
         return ScmContinuation;
+    else if (SCM_CONSTANTP(obj))
+        return ScmConstant;
     else if (C_POINTERP(obj))
         return ScmCPointer;
     else if (C_FUNCPOINTERP(obj))
         return ScmCFuncPointer;
+
+    ERR_OBJ("invalid type", obj);
+
+    /* NOTREACHED */
 }
 #endif /* SCM_OBJ_COMPACT */