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

Merge from mvo-vcell-cleanup-1-branch.

Browse source
This commit is contained in:
Marius Vollmer 2001-05-15 14:57:22 +00:00
parent 7c33806ae6
commit 86d31dfe7d
54 changed files with 1538 additions and 1293 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/ramap.c
View file

@ -2043,12 +2043,19 @@ scm_array_equal_p (SCM ra0, SCM ra1)
}
static void
init_raprocs (ra_iproc *subra)
{
for (; subra->name; subra++)
subra->sproc = scm_symbol_binding (SCM_BOOL_F, scm_str2symbol (subra->name));
{
SCM sym = scm_str2symbol (subra->name);
SCM var =
scm_sym2var (sym, scm_current_module_lookup_closure (), SCM_BOOL_F);
if (var != SCM_BOOL_F)
subra->sproc = SCM_VARIABLE_REF (var);
else
subra->sproc = SCM_BOOL_F;
}
}