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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-02 22:17:26 -0800 (Mon, 02 Jan 2006)
New Revision: 2743

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (SCM_FREECELLP, SCM_AS_FREECELL, SCM_FREECELL_CAR,
    SCM_FREECELL_CDR, SCM_ENTYPE_FREECELL, SCM_FREECELL_SET_CAR,
    SCM_FREECELL_SET_CDR): Removed for
    (!SCM_USE_STORAGE_ABSTRACTION_LAYER && !SCM_OBJ_COMPACT)


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-03 06:09:50 UTC (rev 2742)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-03 06:17:26 UTC (rev 2743)
@@ -150,13 +150,7 @@
 #define SCM_FREECELL_SET_CAR(a, car) (SCM_CONS_SET_CAR((a), (car)))
 #define SCM_FREECELL_SET_CDR(a, cdr) (SCM_CONS_SET_CDR((a), (cdr)))
 #else
-#define SCM_FREECELLP(a)            (SCM_TYPE(a) == ScmFreeCell)
-#define SCM_AS_FREECELL(a)          (SCM_ASSERT_TYPE(SCM_FREECELLP(a), (a)))
-#define SCM_FREECELL_CAR(a)         (SCM_AS_FREECELL(a)->obj.cons.car)
-#define SCM_FREECELL_CDR(a)         (SCM_AS_FREECELL(a)->obj.cons.cdr)
-#define SCM_ENTYPE_FREECELL(a)      (SCM_ENTYPE((a), ScmFreeCell))
-#define SCM_FREECELL_SET_CAR(a, car) (SCM_FREECELL_CAR(a) = (car))
-#define SCM_FREECELL_SET_CDR(a, cdr) (SCM_FREECELL_CDR(a) = (cdr))
+#error "Use the Storage Abstraction Layer"
 #endif
 #endif /* SCM_USE_STORAGE_ABSTRACTION_LAYER */