mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-11 06:20:23 +02:00
* gh_data.c (gh_module_lookup): Use scm_str2symbol rather than gh_symbol2scm.
This commit is contained in:
parent
2a946b44f4
commit
98347362c7
2 changed files with 6 additions and 1 deletions
|
@ -1,3 +1,8 @@
|
|||
2001-12-01 Neil Jerram <neil@ossau.uklinux.net>
|
||||
|
||||
* gh_data.c (gh_module_lookup): Use scm_str2symbol rather than
|
||||
gh_symbol2scm.
|
||||
|
||||
2001-11-28 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||
|
||||
* gc.h (SCM_GC_CELL_WORD, SCM_GC_CELL_OBJECT,
|
||||
|
|
|
@ -701,7 +701,7 @@ gh_module_lookup (SCM module, const char *sname)
|
|||
|
||||
SCM_VALIDATE_MODULE (SCM_ARG1, module);
|
||||
|
||||
sym = gh_symbol2scm (sname);
|
||||
sym = scm_str2symbol (sname);
|
||||
var = scm_sym2var (sym, scm_module_lookup_closure (module), SCM_BOOL_F);
|
||||
if (var != SCM_BOOL_F)
|
||||
return SCM_VARIABLE_REF (var);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue