summaryrefslogtreecommitdiff
path: root/libguile/scm.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-02 16:21:17 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-02 16:26:17 +0200
commitcf25a94745fc733af38db65fa62584ebba92bf93 (patch)
tree14c2f0a8000abddad1191afbc68bd0dab6064294 /libguile/scm.h
parent532df66e0734a205d1e65b149bde7e1111c4000b (diff)
downloadguile-cf25a94745fc733af38db65fa62584ebba92bf93.tar.gz
Add tc7 for finalizer objects
Whippet will need this. * libguile/scm.h (scm_tc7_finalizer): Reserve. * libguile/evalext.c (scm_self_evaluating_p): Add finalizer case. * libguile/print.c (iprin1): * libguile/finalizers.h: * libguile/finalizers.c (scm_i_print_finalizer): Arrange to print finalizers. * module/oop/goops.scm (<finalizer>): * libguile/goops.c (class_finalizer, scm_class_of) (scm_sys_goops_early_init): Wire up support for <finalizer>. * module/system/base/types/internal.scm (heap-tags): Add finalizers. * module/system/vm/assembler.scm (system): Add emit-finalizer?.
Diffstat (limited to 'libguile/scm.h')
-rw-r--r--libguile/scm.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/scm.h b/libguile/scm.h
index 4974b571c..b215993e8 100644
--- a/libguile/scm.h
+++ b/libguile/scm.h
@@ -498,7 +498,7 @@ typedef uintptr_t scm_t_bits;
#define scm_tc7_weak_table 0x57
#define scm_tc7_array 0x5d
#define scm_tc7_bitvector 0x5f
-#define scm_tc7_unused_65 0x65
+#define scm_tc7_finalizer 0x65
#define scm_tc7_unused_67 0x67
#define scm_tc7_unused_6d 0x6d
#define scm_tc7_unused_6f 0x6f