summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-11-05 18:50:23 +0100
committerLudovic Courtès <ludo@gnu.org>2008-11-05 22:39:31 +0100
commit490cf75094167556289716c49ad43ad827f1d0dc (patch)
treec7bb965898650d06f390470f13b9b5572bb90107 /libguile/modules.c
parent00b8057d1f73c71b8784c38ae54e38a479fbafbd (diff)
downloadguile-490cf75094167556289716c49ad43ad827f1d0dc.tar.gz
Work around unintentional retention of modules by the GC.
This reverts par of "Document the failure of `gc.test' wrt. unused modules." (commit 328efeb9a66dddcf78a24fad96d3db58e9c3375d.) * ice-9/boot-9.scm (set-module-eval-closure!): Don't set the `module' property on CLOSURE. * libguile/modules.c (scm_lookup_closure_module): Call `abort ()' to make it clear that code that uses the `module' property no longer works. That code is unused anyway.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index d59428c8d..04527a529 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -255,7 +255,13 @@ scm_lookup_closure_module (SCM proc)
return SCM_PACK (SCM_SMOB_DATA (proc));
else
{
- SCM mod = scm_procedure_property (proc, sym_module);
+ SCM mod;
+
+ /* FIXME: The `module' property is no longer set. See
+ `set-module-eval-closure!' in `boot-9.scm'. */
+ abort ();
+
+ mod = scm_procedure_property (proc, sym_module);
if (scm_is_false (mod))
mod = the_root_module ();
return mod;