2026-05-19 16:16:03 -06:00
parent c1851fe242
commit 78a4fb402d
5 changed files with 48 additions and 23 deletions
@@ -92,6 +92,7 @@ find_bucket (scm_t_weak_set *set, unsigned long hash,
             && pred (SCM_PACK (set->entries[p].key), closure)) {
    return SCM_PACK (set->entries[p].key);
  } else {
+    /* i have faith in gcc's TCO. */
    return find_bucket (set, hash, key, pred, closure,
                        (p + 1) % set->size);
  }
@@ -101,7 +102,7 @@ find_bucket (scm_t_weak_set *set, unsigned long hash,

 SCM scm_c_weak_set_insert (SCM set, unsigned long hash,
                           SCM key, scm_t_set_predicate_fn pred,
-                           void* closure) {
+                           void *closure) {
  scm_t_weak_set *s = SCM_WEAK_SET (set);
  unsigned long size = s->size;