mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* modules.c (scm_selected_module): the_module is now a fluid.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-06-21 02:42:31 +00:00
parent a0ea2bf043
commit 7f763132bc
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/modules.c
View file

@ -52,6 +52,7 @@
#include "libguile/hashtab.h" #include "libguile/hashtab.h"
#include "libguile/struct.h" #include "libguile/struct.h"
#include "libguile/variable.h" #include "libguile/variable.h"
#include "libguile/fluids.h"
#include "libguile/modules.h" #include "libguile/modules.h"
@ -69,7 +70,7 @@ static SCM the_module;
SCM SCM
scm_selected_module () scm_selected_module ()
{ {
return SCM_CDR (the_module); return scm_fluid_ref (SCM_CDR (the_module));
} }
static SCM set_current_module; static SCM set_current_module;