mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 23:20:32 +02:00
Code Activity

(scm_hashx_remove_x): Need to pass "closure" to scm_hash_fn_remove_x.

Browse source
This commit is contained in:
Kevin Ryde 2005-04-22 23:33:15 +00:00
parent b906b056e4
commit 4cff503fc8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/hashtab.c
View file

@ -933,7 +933,8 @@ SCM_DEFINE (scm_hashx_remove_x, "hashx-remove!", 4, 0, 0,
scm_t_ihashx_closure closure; scm_t_ihashx_closure closure;
closure.hash = hash; closure.hash = hash;
closure.assoc = assoc; closure.assoc = assoc;
return scm_hash_fn_remove_x (table, obj, scm_ihashx, scm_sloppy_assx, 0); return scm_hash_fn_remove_x (table, obj, scm_ihashx, scm_sloppy_assx,
(void *) &closure);
} }
#undef FUNC_NAME #undef FUNC_NAME