mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

Work around unintentional retention of modules by the GC.

Browse source 
This reverts par of "Document the failure of `gc.test' wrt. unused modules."
(commit 328efeb9a6.)

* 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.
This commit is contained in:
Ludovic Courtès 2008-11-05 18:50:23 +01:00
parent 00b8057d1f
commit 490cf75094
3 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/modules.c
View file

@ -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;