Snapshot for 0.6.2 release.

c/scheme48.h

@@ -312,36 +312,38 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding);
 #define S48_CLOSURE_P(x) (s48_stob_has_type(x, 3))
 #define S48_STOBTYPE_LOCATION 4
 #define S48_LOCATION_P(x) (s48_stob_has_type(x, 4))
-#define S48_STOBTYPE_CHANNEL 5
+#define S48_STOBTYPE_CELL 5
-#define S48_CHANNEL_P(x) (s48_stob_has_type(x, 5))
+#define S48_CELL_P(x) (s48_stob_has_type(x, 5))
-#define S48_STOBTYPE_PORT 6
+#define S48_STOBTYPE_CHANNEL 6
-#define S48_PORT_P(x) (s48_stob_has_type(x, 6))
+#define S48_CHANNEL_P(x) (s48_stob_has_type(x, 6))
-#define S48_STOBTYPE_RATNUM 7
+#define S48_STOBTYPE_PORT 7
-#define S48_RATNUM_P(x) (s48_stob_has_type(x, 7))
+#define S48_PORT_P(x) (s48_stob_has_type(x, 7))
-#define S48_STOBTYPE_RECORD 8
+#define S48_STOBTYPE_RATNUM 8
-#define S48_RECORD_P(x) (s48_stob_has_type(x, 8))
+#define S48_RATNUM_P(x) (s48_stob_has_type(x, 8))
-#define S48_STOBTYPE_CONTINUATION 9
+#define S48_STOBTYPE_RECORD 9
-#define S48_CONTINUATION_P(x) (s48_stob_has_type(x, 9))
+#define S48_RECORD_P(x) (s48_stob_has_type(x, 9))
-#define S48_STOBTYPE_EXTENDED_NUMBER 10
+#define S48_STOBTYPE_CONTINUATION 10
-#define S48_EXTENDED_NUMBER_P(x) (s48_stob_has_type(x, 10))
+#define S48_CONTINUATION_P(x) (s48_stob_has_type(x, 10))
-#define S48_STOBTYPE_TEMPLATE 11
+#define S48_STOBTYPE_EXTENDED_NUMBER 11
-#define S48_TEMPLATE_P(x) (s48_stob_has_type(x, 11))
+#define S48_EXTENDED_NUMBER_P(x) (s48_stob_has_type(x, 11))
-#define S48_STOBTYPE_WEAK_POINTER 12
+#define S48_STOBTYPE_TEMPLATE 12
-#define S48_WEAK_POINTER_P(x) (s48_stob_has_type(x, 12))
+#define S48_TEMPLATE_P(x) (s48_stob_has_type(x, 12))
-#define S48_STOBTYPE_SHARED_BINDING 13
+#define S48_STOBTYPE_WEAK_POINTER 13
-#define S48_SHARED_BINDING_P(x) (s48_stob_has_type(x, 13))
+#define S48_WEAK_POINTER_P(x) (s48_stob_has_type(x, 13))
-#define S48_STOBTYPE_UNUSED_D_HEADER1 14
+#define S48_STOBTYPE_SHARED_BINDING 14
-#define S48_UNUSED_D_HEADER1_P(x) (s48_stob_has_type(x, 14))
+#define S48_SHARED_BINDING_P(x) (s48_stob_has_type(x, 14))
-#define S48_STOBTYPE_UNUSED_D_HEADER2 15
+#define S48_STOBTYPE_UNUSED_D_HEADER1 15
-#define S48_UNUSED_D_HEADER2_P(x) (s48_stob_has_type(x, 15))
+#define S48_UNUSED_D_HEADER1_P(x) (s48_stob_has_type(x, 15))
-#define S48_STOBTYPE_STRING 16
+#define S48_STOBTYPE_UNUSED_D_HEADER2 16
-#define S48_STRING_P(x) (s48_stob_has_type(x, 16))
+#define S48_UNUSED_D_HEADER2_P(x) (s48_stob_has_type(x, 16))
-#define S48_STOBTYPE_BYTE_VECTOR 17
+#define S48_STOBTYPE_STRING 17
-#define S48_BYTE_VECTOR_P(x) (s48_stob_has_type(x, 17))
+#define S48_STRING_P(x) (s48_stob_has_type(x, 17))
-#define S48_STOBTYPE_DOUBLE 18
+#define S48_STOBTYPE_BYTE_VECTOR 18
-#define S48_DOUBLE_P(x) (s48_stob_has_type(x, 18))
+#define S48_BYTE_VECTOR_P(x) (s48_stob_has_type(x, 18))
-#define S48_STOBTYPE_BIGNUM 19
+#define S48_STOBTYPE_DOUBLE 19
-#define S48_BIGNUM_P(x) (s48_stob_has_type(x, 19))
+#define S48_DOUBLE_P(x) (s48_stob_has_type(x, 19))
+#define S48_STOBTYPE_BIGNUM 20
+#define S48_BIGNUM_P(x) (s48_stob_has_type(x, 20))
 
 #define S48_CAR_OFFSET 0
 #define S48_CAR(x) (s48_stob_ref((x), S48_STOBTYPE_PAIR, 0))
@@ -366,6 +368,11 @@ extern void s48_check_record_type(s48_value record, s48_value type_binding);
 #define S48_UNSAFE_CONTENTS(x) (S48_STOB_REF((x), 1))
 #define S48_SET_CONTENTS(x, v) (s48_stob_set((x), S48_STOBTYPE_LOCATION, 1, (v)))
 #define S48_UNSAFE_SET_CONTENTS(x, v) S48_STOB_SET((x), 1, (v))
+#define S48_CELL_REF_OFFSET 0
+#define S48_CELL_REF(x) (s48_stob_ref((x), S48_STOBTYPE_CELL, 0))
+#define S48_UNSAFE_CELL_REF(x) (S48_STOB_REF((x), 0))
+#define S48_CELL_SET(x, v) (s48_stob_set((x), S48_STOBTYPE_CELL, 0, (v)))
+#define S48_UNSAFE_CELL_SET(x, v) S48_STOB_SET((x), 0, (v))
 #define S48_CLOSURE_TEMPLATE_OFFSET 0
 #define S48_CLOSURE_TEMPLATE(x) (s48_stob_ref((x), S48_STOBTYPE_CLOSURE, 0))
 #define S48_UNSAFE_CLOSURE_TEMPLATE(x) (S48_STOB_REF((x), 0))