diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-11-05 18:50:23 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-11-05 22:39:31 +0100 |
commit | 490cf75094167556289716c49ad43ad827f1d0dc (patch) | |
tree | c7bb965898650d06f390470f13b9b5572bb90107 /libguile/modules.c | |
parent | 00b8057d1f73c71b8784c38ae54e38a479fbafbd (diff) | |
download | guile-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.c | 8 |
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; |