summaryrefslogtreecommitdiff
path: root/libguile/deprecated.h
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 /libguile/deprecated.h
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 'libguile/deprecated.h')
-rw-r--r--libguile/deprecated.h16
1 files changed, 16 insertions, 0 deletions
diff --git a/libguile/deprecated.h b/libguile/deprecated.h
index dbe2e4ce2..e7c63d47c 100644
--- a/libguile/deprecated.h
+++ b/libguile/deprecated.h
@@ -25,6 +25,22 @@
#if (SCM_ENABLE_DEPRECATED == 1)
SCM_DEPRECATED SCM scm_make_guardian (void);
+
+#define SCM_I_WVECTP(x) (scm_is_weak_vector (x))
+
+SCM_DEPRECATED SCM scm_make_weak_vector (SCM len, SCM fill);
+SCM_DEPRECATED SCM scm_weak_vector (SCM l);
+SCM_DEPRECATED SCM scm_weak_vector_p (SCM x);
+SCM_DEPRECATED SCM scm_weak_vector_length (SCM v);
+SCM_DEPRECATED SCM scm_weak_vector_ref (SCM v, SCM k);
+SCM_DEPRECATED SCM scm_weak_vector_set_x (SCM v, SCM k, SCM x);
+
+SCM_DEPRECATED SCM scm_c_make_weak_vector (size_t len, SCM fill);
+SCM_DEPRECATED int scm_is_weak_vector (SCM obj);
+SCM_DEPRECATED size_t scm_c_weak_vector_length (SCM vec);
+SCM_DEPRECATED SCM scm_c_weak_vector_ref (SCM v, size_t k);
+SCM_DEPRECATED void scm_c_weak_vector_set_x (SCM v, size_t k, SCM x);
+
/* Deprecated declarations go here. */
void scm_i_init_deprecated (void);