diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-21 02:42:31 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-21 02:42:31 +0000 |
commit | 7f763132bc314c2f530decba81c5e6c69a0477cd (patch) | |
tree | 79229c19bc83f31a40d619c1c02a7f1f8147bff0 /libguile/modules.c | |
parent | a0ea2bf0433a3519394429f891ac04e62d79819f (diff) | |
download | guile-7f763132bc314c2f530decba81c5e6c69a0477cd.tar.gz |
* modules.c (scm_selected_module): the_module is now a fluid.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index f43a893b9..6e5d3413a 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -52,6 +52,7 @@ #include "libguile/hashtab.h" #include "libguile/struct.h" #include "libguile/variable.h" +#include "libguile/fluids.h" #include "libguile/modules.h" @@ -69,7 +70,7 @@ static SCM the_module; SCM scm_selected_module () { - return SCM_CDR (the_module); + return scm_fluid_ref (SCM_CDR (the_module)); } static SCM set_current_module; |