diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-02 16:21:17 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-02 16:26:17 +0200 |
commit | cf25a94745fc733af38db65fa62584ebba92bf93 (patch) | |
tree | 14c2f0a8000abddad1191afbc68bd0dab6064294 /libguile/scm.h | |
parent | 532df66e0734a205d1e65b149bde7e1111c4000b (diff) | |
download | guile-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.h | 2 |
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 |