From 4cff503fc8225c7f5784fb9d67f9eecdc95ad7cf Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 22 Apr 2005 23:33:15 +0000 Subject: [PATCH] (scm_hashx_remove_x): Need to pass "closure" to scm_hash_fn_remove_x. --- libguile/hashtab.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/hashtab.c b/libguile/hashtab.c index 488054969..8e1cb63df 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -933,7 +933,8 @@ SCM_DEFINE (scm_hashx_remove_x, "hashx-remove!", 4, 0, 0, scm_t_ihashx_closure closure; closure.hash = hash; 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