Parent Directory | Revision Log | Patch
revision 1.65 by mvo, Sun Nov 25 15:21:07 2001 UTC | revision 1.66 by ossau, Sat Dec 1 15:54:58 2001 UTC | |
---|---|---|
# | Line 701 gh_module_lookup (SCM module, const char | Line 701 gh_module_lookup (SCM module, const char |
701 | ||
702 | SCM_VALIDATE_MODULE (SCM_ARG1, module); | SCM_VALIDATE_MODULE (SCM_ARG1, module); |
703 | ||
704 | sym = gh_symbol2scm (sname); | sym = scm_str2symbol (sname); |
705 | var = scm_sym2var (sym, scm_module_lookup_closure (module), SCM_BOOL_F); | var = scm_sym2var (sym, scm_module_lookup_closure (module), SCM_BOOL_F); |
706 | if (var != SCM_BOOL_F) | if (var != SCM_BOOL_F) |
707 | return SCM_VARIABLE_REF (var); | return SCM_VARIABLE_REF (var); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |