diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-05 16:07:30 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-05 16:29:24 +0200 |
commit | c63f9101f8e6e02a1f034e202d8caa50183992d2 (patch) | |
tree | d7bfe85bcf2189d592063f4cd8968f53ad4c753b /module/system | |
parent | 96589bd303ab0fd778ebf2824f642e5b4528882d (diff) | |
download | guile-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.scm | 2 | ||||
-rw-r--r-- | module/system/base/types/internal.scm | 3 | ||||
-rw-r--r-- | module/system/vm/assembler.scm | 1 |
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? |