diff options
author | Julian Graham <julian@transmetropolitan.(none)> | 2009-06-02 09:35:02 -0400 |
---|---|---|
committer | Julian Graham <julian@transmetropolitan.(none)> | 2009-06-02 09:35:02 -0400 |
commit | 2f9ae9b1040e1b9339bb0bc8b0013a5346622c44 (patch) | |
tree | 8dc3105cc05ddd5509edc4559a69d32d2acddfab /libguile/modules.c | |
parent | 922d417bf4a7c4eb7d956d340161ad6407545ae7 (diff) | |
parent | 938d46a35d39ec5d7b5fa858a8783136ce24d10d (diff) | |
download | guile-2f9ae9b1040e1b9339bb0bc8b0013a5346622c44.tar.gz |
Merge branch 'master' of git://git.savannah.gnu.org/guile
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 4 |
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); |