2026-05-19 16:16:03 -06:00
parent fbcb129437
commit c1851fe242
11 changed files with 243 additions and 42 deletions
@@ -0,0 +1,20 @@
+#ifndef WEAK_SET_H
+#define WEAK_SET_H
+
+#include "gyehoek.h"
+
+#define SCM_WEAK_SET_P(x) (SCM_HAS_TYP7 (x, scm_tc7_weak_set))
+
+/* Function that returns nonzero if the given object is the one we are
+   looking for.  */
+typedef int (*scm_t_set_predicate_fn) (SCM obj, void *closure);
+
+SCM scm_c_make_weak_set (unsigned long k);
+
+SCM scm_c_weak_set_insert (SCM set, unsigned long hash,
+                           SCM key, scm_t_set_predicate_fn pred,
+                           void* closure);
+
+unsigned long weak_set_count (SCM set);
+
+#endif /* WEAK_SET_H */