diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
commit | 86d31dfe7d0754b863863f6544c75097ef68fe8c (patch) | |
tree | 0f78f9d3ace802b80422dcedea25098cf901d05a /libguile/ramap.c | |
parent | 7c33806ae676601f902dbdc0f39c1f0828d68951 (diff) | |
download | guile-86d31dfe7d0754b863863f6544c75097ef68fe8c.tar.gz |
Merge from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'libguile/ramap.c')
-rw-r--r-- | libguile/ramap.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/libguile/ramap.c b/libguile/ramap.c index c594828ff..5fe765624 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -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; + } } |