summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-05 16:07:30 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-05 16:29:24 +0200
commitc63f9101f8e6e02a1f034e202d8caa50183992d2 (patch)
treed7bfe85bcf2189d592063f4cd8968f53ad4c753b /module/system
parent96589bd303ab0fd778ebf2824f642e5b4528882d (diff)
downloadguile-wip-whippet.tar.gz
Reimplement weak vectors in Scheme using ephemeronswip-whippet
* module/ice-9/weak-vector.scm: New implementation, same interface. * doc/ref/api-memory.texi (Weak vectors): Default weak vector value was documented as empty list when it was actually unspecified, but #f is most useful, so we change documentation and code to match. * libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES): (DOT_X_FILES): (DOT_DOC_FILES): (noinst_HEADERS): (modinclude_HEADERS): * libguile.h: * libguile/deprecated.c: * libguile/deprecated.h: * libguile/init.c: * libguile/weak-vector.c: * libguile/weak-vector.h: Remove C weak vector implementation, replaced with deprecation stubs that call out to Scheme. * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-list.h: Remove unused internal header. * libguile/eq.c: * libguile/evalext.c: * libguile/goops.c: * libguile/hash.c: * libguile/scm.h: * module/system/base/types.scm: * module/system/base/types/internal.scm: * module/system/vm/assembler.scm: Remove wvect tc7.
Diffstat (limited to 'module/system')
-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
3 files changed, 1 insertions, 5 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index 75235ea07..c1899bdb0 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -431,8 +431,6 @@ using BACKEND."
(bytevector->uint-list words (native-endianness)
%word-size)))
vector)))
- (((_ & #x7f = %tc7-weak-vector))
- (inferior-object 'weak-vector address)) ; TODO: show elements
(((_ & #x7f = %tc7-fluid) init-value)
(inferior-object 'fluid address))
(((_ & #x7f = %tc7-dynamic-state))
diff --git a/module/system/base/types/internal.scm b/module/system/base/types/internal.scm
index 6b774a48c..b739f9a9a 100644
--- a/module/system/base/types/internal.scm
+++ b/module/system/base/types/internal.scm
@@ -36,7 +36,6 @@
%tc7-vector
%tc8-immutable-vector
%tc8-mutable-vector
- %tc7-weak-vector
%tc7-string
%tc7-heap-number
%tc7-hash-table
@@ -132,7 +131,7 @@
(vector vector? #b1111111 #b0001101)
(immutable-vector immutable-vector? #b11111111 #b10001101)
(mutable-vector mutable-vector? #b11111111 #b00001101)
- (weak-vector weak-vector? #b1111111 #b0001111)
+ ;;(unused unused #b1111111 #b0001111)
(string string? #b1111111 #b0010101)
(heap-number heap-number? #b1111111 #b0010111)
(hash-table hash-table? #b1111111 #b0011101)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index a1d748df7..8b228d2e3 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -118,7 +118,6 @@
emit-vector?
emit-mutable-vector?
emit-immutable-vector?
- emit-weak-vector?
emit-string?
emit-heap-number?
emit-hash-table?