summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorJulian Graham <julian@transmetropolitan.(none)>2009-06-02 09:35:02 -0400
committerJulian Graham <julian@transmetropolitan.(none)>2009-06-02 09:35:02 -0400
commit2f9ae9b1040e1b9339bb0bc8b0013a5346622c44 (patch)
tree8dc3105cc05ddd5509edc4559a69d32d2acddfab /libguile/modules.c
parent922d417bf4a7c4eb7d956d340161ad6407545ae7 (diff)
parent938d46a35d39ec5d7b5fa858a8783136ce24d10d (diff)
downloadguile-2f9ae9b1040e1b9339bb0bc8b0013a5346622c44.tar.gz
Merge branch 'master' of git://git.savannah.gnu.org/guile
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index 2cb8a7620..689510ce6 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -412,13 +412,13 @@ SCM_DEFINE (scm_module_local_variable, "module-local-variable", 2, 0, 0,
register SCM b;
- /* SCM_MODULE_TAG is not initialized yet when `boot-9.scm' is being
- evaluated. */
if (scm_module_system_booted_p)
SCM_VALIDATE_MODULE (1, module);
SCM_VALIDATE_SYMBOL (2, sym);
+ if (scm_is_false (module))
+ return scm_hashq_ref (scm_pre_modules_obarray, sym, SCM_UNDEFINED);
/* 1. Check module obarray */
b = scm_hashq_ref (SCM_MODULE_OBARRAY (module), sym, SCM_UNDEFINED);