summaryrefslogtreecommitdiff
path: root/module
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
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')
-rw-r--r--module/language/cps/compile-bytecode.scm1
-rw-r--r--module/system/base/types.scm2
-rw-r--r--module/system/base/types/internal.scm3
-rw-r--r--module/system/vm/assembler.scm1
4 files changed, 1 insertions, 6 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 8ff16cfa5..41a359cd3 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -505,7 +505,6 @@
(#('vm-continuation? #f (a)) (unary emit-vm-continuation? a))
(#('bytevector? #f (a)) (unary emit-bytevector? a))
(#('thread? #f (a)) (unary emit-thread? a))
- (#('weak-set? #f (a)) (unary emit-weak-set? a))
(#('array? #f (a)) (unary emit-array? a))
(#('bitvector? #f (a)) (unary emit-bitvector? a))
(#('smob? #f (a)) (unary emit-smob? a))
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)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index d931dcd78..d92399b26 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -132,7 +132,6 @@
emit-vm-continuation?
emit-bytevector?
emit-thread?
- emit-weak-set?
emit-array?
emit-bitvector?
emit-ephemeron?