From 6dc1cd1eec346af86dad94c450897ef1bb03d8d5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 12 Sep 2003 15:11:09 +0000 Subject: (scm_module_reverse_lookup): Check that the obarray really is a hashtable and do nothing if not. --- libguile/modules.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'libguile/modules.c') 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. */ -- cgit v1.2.3