summaryrefslogtreecommitdiff
path: root/module/system/base
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-14 16:09:31 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-14 16:12:11 +0200
commit1e06be2fa8233819b88606330bd9d1a84a14b28d (patch)
tree3aa720c384731dc3ecd9864ebaa8f5393ae9dcc9 /module/system/base
parent4138d3c646c72845ac4946fc6e22c155c067b12b (diff)
downloadguile-1e06be2fa8233819b88606330bd9d1a84a14b28d.tar.gz
Remove weak sets
* libguile/weak-set.c: * libguile/weak-set.h: Remove. * libguile.h: * libguile/Makefile.am: Adapt build and includes. * libguile/scm.h: Remove weak set tc7. * libguile/evalext.c: * libguile/hash.c: * libguile/ioext.c: * libguile/ports.c: * libguile/print.c: Remove weak-set includes and tc7 cases. * libguile/init.c: No need to init weak sets. * module/language/cps/compile-bytecode.scm: * module/system/base/types.scm: * module/system/base/types/internal.scm: * module/system/vm/assembler.scm: Adapt to tc7 change.
Diffstat (limited to 'module/system/base')
-rw-r--r--module/system/base/types.scm2
-rw-r--r--module/system/base/types/internal.scm3
2 files changed, 1 insertions, 4 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index 9347dcc51..5ecdea4cd 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -461,8 +461,6 @@ using BACKEND."
(cell->object source backend)))
(((_ & #x7f = %tc7-vm-continuation))
(inferior-object 'vm-continuation address))
- (((_ & #x7f = %tc7-weak-set))
- (inferior-object 'weak-set address))
(((_ & #x7f = %tc7-array))
(inferior-object 'array address))
(((_ & #x7f = %tc7-bitvector))
diff --git a/module/system/base/types/internal.scm b/module/system/base/types/internal.scm
index a0370eddc..8d7f29088 100644
--- a/module/system/base/types/internal.scm
+++ b/module/system/base/types/internal.scm
@@ -51,7 +51,6 @@
%tc7-vm-continuation
%tc7-bytevector
%tc7-thread
- %tc7-weak-set
%tc7-array
%tc7-bitvector
%tc7-port
@@ -147,7 +146,7 @@
(vm-continuation vm-continuation? #b1111111 #b1000111)
(bytevector bytevector? #b1111111 #b1001101)
(thread thread? #b1111111 #b1001111)
- (weak-set weak-set? #b1111111 #b1010101)
+ ;;(unused unused #b1111111 #b1010101)
;;(unused unused #b1111111 #b1010111)
(array array? #b1111111 #b1011101)
(bitvector bitvector? #b1111111 #b1011111)