summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-21 02:42:31 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-21 02:42:31 +0000
commit7f763132bc314c2f530decba81c5e6c69a0477cd (patch)
tree79229c19bc83f31a40d619c1c02a7f1f8147bff0 /libguile/modules.c
parenta0ea2bf0433a3519394429f891ac04e62d79819f (diff)
downloadguile-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.c3
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;