From 7f763132bc314c2f530decba81c5e6c69a0477cd Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 21 Jun 2000 02:42:31 +0000 Subject: [PATCH] * modules.c (scm_selected_module): the_module is now a fluid. --- libguile/modules.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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;