#define scm_tc3_tc7_2 7
-/* As we have seen, heap objects have a tag in their three lowest bits.
- If you have a heap object and want the pointer to the start of the
- object, perhaps for GC purposes, you need to mask off the low bits,
- which is what SCM_HEAP_OBJECT_BASE does.
-
- Note that you can avoid this macro if you know the specific type of
- the object (pair, struct, or other).
- */
-#define SCM_HEAP_OBJECT_BASE(x) ((scm_t_bits*)((SCM_UNPACK (x)) & ~7))
-
-
/* Definitions for tc7: */
#define SCM_ITAG7(x) (127 & SCM_UNPACK (x))
#define scm_tc7_vm 55
#define scm_tc7_vm_cont 71
-#define scm_tc7_prompt 61
-#define scm_tc7_with_fluids 63
+#define scm_tc7_unused_17 61
+#define scm_tc7_unused_21 63
#define scm_tc7_unused_19 69
#define scm_tc7_program 79
#define scm_tc7_weak_set 85