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

kzk at freedesktop.org kzk at freedesktop.org
Tue Dec 20 20:18:14 PST 2005


Author: kzk
Date: 2005-12-20 20:18:10 -0800 (Tue, 20 Dec 2005)
New Revision: 2679

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (scm_type): use SCM_CELL_C[AD]R


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-12-21 04:09:47 UTC (rev 2678)
+++ branches/r5rs/sigscheme/storage.c	2005-12-21 04:18:10 UTC (rev 2679)
@@ -388,7 +388,7 @@
             return ScmCFuncPointer;
 
         ERR("invalid others object: ptr = %p, car = %p, cdr = %p",
-            (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
+            (void*)obj, SCM_CELL_CAR(obj), SCM_CELL_CDR(obj));
     } else if (SCM_TAG_IMMP(obj)) {
         if (INTP(obj))
             return ScmInt;
@@ -398,10 +398,10 @@
             return ScmConstant;
 
         ERR("invalid imm object: ptr = %p, car = %p, cdr = %p",
-            (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
+            (void*)obj, SCM_CELL_CAR(obj), SCM_CELL_CDR(obj));
     }
 
     ERR("corrupted object: ptr = %p, car = %p, cdr = %p",
-        (void*)obj, SCM_GET_DIRECT_CAR(obj), SCM_GET_DIRECT_CDR(obj));
+        (void*)obj, SCM_CELL_CAR(obj), SCM_CELL_CDR(obj));
 }
 #endif /* SCM_OBJ_COMPACT */



More information about the uim-commit mailing list