mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-16 18:50:23 +02:00
Code Activity

* hashtab.c: Bugfix: Don't declare s_hash_fold without storage

Browse source 
size. (Thanks to James Dean Palmer.)
This commit is contained in:
Mikael Djurfeldt 1999-07-31 09:04:46 +00:00
parent 82a48a5747
commit b94903c2c1
1 changed files with 17 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

36
libguile/hashtab.c
View file

@ -529,7 +529,23 @@ scm_hashx_remove_x (hash, assoc, delete, table, obj)
return scm_hash_fn_remove_x (table, obj, scm_ihashx, scm_sloppy_assx, scm_delx_x, 0);
}
static const char s_hash_fold[];
static SCM
fold_proc (void *proc, SCM key, SCM data, SCM value)
{
return scm_apply ((SCM) proc, SCM_LIST3 (key, data, value), SCM_EOL);
}
SCM_PROC (s_hash_fold, "hash-fold", 3, 0, 0, scm_hash_fold);
SCM
scm_hash_fold (SCM proc, SCM init, SCM table)
{
SCM_ASSERT (SCM_NIMP (table) && SCM_VECTORP (table),
table, SCM_ARG1, s_hash_fold);
SCM_ASSERT (SCM_NIMP (proc) && SCM_NFALSEP (scm_procedure_p (proc)),
proc, SCM_ARG2, s_hash_fold);
return scm_internal_hash_fold (fold_proc, (void *) proc, init, table);
}
SCM
scm_internal_hash_fold (SCM (*fn) (), void *closure, SCM init, SCM table)
@ -553,24 +569,6 @@ scm_internal_hash_fold (SCM (*fn) (), void *closure, SCM init, SCM table)
return result;
}
static SCM
fold_proc (void *proc, SCM key, SCM data, SCM value)
{
return scm_apply ((SCM) proc, SCM_LIST3 (key, data, value), SCM_EOL);
}
SCM_PROC (s_hash_fold, "hash-fold", 3, 0, 0, scm_hash_fold);
SCM
scm_hash_fold (SCM proc, SCM init, SCM table)
{
SCM_ASSERT (SCM_NIMP (table) && SCM_VECTORP (table),
table, SCM_ARG1, s_hash_fold);
SCM_ASSERT (SCM_NIMP (proc) && SCM_NFALSEP (scm_procedure_p (proc)),
proc, SCM_ARG2, s_hash_fold);
return scm_internal_hash_fold (fold_proc, (void *) proc, init, table);
}