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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-09 06:56:34 -0800 (Fri, 09 Dec 2005)
New Revision: 2497

Modified:
   branches/r5rs/sigscheme/sigschemetype-compact.h
   branches/r5rs/sigscheme/sigschemetype.h
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/sigschemetype.h
  - (enum ScmObjType): Remove ScmInvalid
* sigscheme/sigschemetype-compact.h
  - (enum ScmObjType): Ditto
* sigscheme/storage.c
  - (Scm_Type): Cause error instead of returning ScmInvalid


Modified: branches/r5rs/sigscheme/sigschemetype-compact.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-09 14:34:07 UTC (rev 2496)
+++ branches/r5rs/sigscheme/sigschemetype-compact.h	2005-12-09 14:56:34 UTC (rev 2497)
@@ -794,9 +794,7 @@
     ScmFreeCell     = 12,
 
     ScmCPointer     = 20,
-    ScmCFuncPointer = 21,
-
-    ScmInvalid      = 31    
+    ScmCFuncPointer = 21
 };
 
 /* storage.c */

Modified: branches/r5rs/sigscheme/sigschemetype.h
===================================================================
--- branches/r5rs/sigscheme/sigschemetype.h	2005-12-09 14:34:07 UTC (rev 2496)
+++ branches/r5rs/sigscheme/sigschemetype.h	2005-12-09 14:56:34 UTC (rev 2497)
@@ -85,9 +85,7 @@
     ScmFreeCell     = 12,
 
     ScmCPointer     = 20,
-    ScmCFuncPointer = 21,
-
-    ScmInvalid      = 31
+    ScmCFuncPointer = 21
 };
 
 enum ScmPortFlag {

Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-09 14:34:07 UTC (rev 2496)
+++ branches/r5rs/sigscheme/storage.c	2005-12-09 14:56:34 UTC (rev 2497)
@@ -355,7 +355,6 @@
             return ScmChar;
     }
 
-   /* FIXME: Should we need to raise an error here? */
-    return ScmInvalid;
+    ERR("corrupted object");
 }
 #endif /* SCM_OBJ_COMPACT */