summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2003-09-12 15:11:09 +0000
committerMarius Vollmer <mvo@zagadka.de>2003-09-12 15:11:09 +0000
commit6dc1cd1eec346af86dad94c450897ef1bb03d8d5 (patch)
treea829cd384a2b6ca296398dda7bc2b6b5ac540c9b /libguile/modules.c
parent62f548e16cd76b8c60ee9b8602db0635b9dcb73f (diff)
downloadguile-6dc1cd1eec346af86dad94c450897ef1bb03d8d5.tar.gz
(scm_module_reverse_lookup): Check that the obarray really is a
hashtable and do nothing if not.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index fd13c516b..f034426ab 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -568,6 +568,9 @@ scm_module_reverse_lookup (SCM module, SCM variable)
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
whole obarray. We should have a scm_hash_find procedure. */