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

(scm_module_reverse_lookup): Check that the obarray really is a

Browse source 
hashtable and do nothing if not.
This commit is contained in:
Marius Vollmer 2003-09-12 15:11:09 +00:00
parent 62f548e16c
commit 6dc1cd1eec
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/modules.c
View file

@ -568,6 +568,9 @@ scm_module_reverse_lookup (SCM module, SCM variable)
obarray = SCM_MODULE_OBARRAY (module); obarray = SCM_MODULE_OBARRAY (module);
} }
if (!SCM_HASHTABLE_P (obarray))
return SCM_BOOL_F;
/* XXX - We do not use scm_hash_fold here to avoid searching the /* XXX - We do not use scm_hash_fold here to avoid searching the
whole obarray. We should have a scm_hash_find procedure. */ whole obarray. We should have a scm_hash_find procedure. */