diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-04-22 23:33:15 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-04-22 23:33:15 +0000 |
commit | 4cff503fc8225c7f5784fb9d67f9eecdc95ad7cf (patch) | |
tree | ab120bbb9fadae867433fef81553eaa93b5b19e1 /libguile/hashtab.c | |
parent | b906b056e46e622d52c99c341aba252797970e87 (diff) | |
download | guile-4cff503fc8225c7f5784fb9d67f9eecdc95ad7cf.tar.gz |
(scm_hashx_remove_x): Need to pass "closure" to scm_hash_fn_remove_x.
Diffstat (limited to 'libguile/hashtab.c')
-rw-r--r-- | libguile/hashtab.c | 3 |
1 files changed, 2 insertions, 1 deletions
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 |