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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-20 22:03:05 -0800 (Tue, 20 Dec 2005)
New Revision: 2681

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (scm_type): handle freecell


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-21 05:17:03 UTC (rev 2680)
+++ branches/r5rs/sigscheme/storage.c	2005-12-21 06:03:05 UTC (rev 2681)
@@ -386,6 +386,8 @@
             return ScmCPointer;
         else if (C_FUNCPOINTERP(obj))
             return ScmCFuncPointer;
+        else if (FREECELLP(obj))
+            return ScmFreeCell;
 
         ERR("invalid others object: ptr = %p, car = %p, cdr = %p",
             (void*)obj, SCM_CELL_CAR(obj), SCM_CELL_CDR(obj));