mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* gc.c

Browse source 
(scm_init_gc): gc-thunk deprecation expired - removed.
	(scm_gc_vcell): deprecation expired - removed.
	(gc_async_thunk): scm_gc_vcell related code removed.
This commit is contained in:
Rob Browning 2001-04-27 21:09:02 +00:00
parent 8a7fb63c90
commit 2baa64142b
1 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/gc.c
View file

@ -2663,12 +2663,8 @@ scm_init_storage ()
SCM scm_after_gc_hook; SCM scm_after_gc_hook;
#if (SCM_DEBUG_DEPRECATED == 0)
static SCM scm_gc_vcell; /* the vcell for gc-thunk. */
#endif /* SCM_DEBUG_DEPRECATED == 0 */
static SCM gc_async; static SCM gc_async;
/* The function gc_async_thunk causes the execution of the after-gc-hook. It /* The function gc_async_thunk causes the execution of the after-gc-hook. It
* is run after the gc, as soon as the asynchronous events are handled by the * is run after the gc, as soon as the asynchronous events are handled by the
* evaluator. * evaluator.
@ -2677,20 +2673,6 @@ static SCM
gc_async_thunk (void) gc_async_thunk (void)
{ {
scm_c_run_hook (scm_after_gc_hook, SCM_EOL); scm_c_run_hook (scm_after_gc_hook, SCM_EOL);
#if (SCM_DEBUG_DEPRECATED == 0)
/* The following code will be removed in Guile 1.5. */
if (SCM_NFALSEP (scm_gc_vcell))
{
SCM proc = SCM_CDR (scm_gc_vcell);
if (SCM_NFALSEP (proc) && !SCM_UNBNDP (proc))
scm_apply (proc, SCM_EOL, SCM_EOL);
}
#endif /* SCM_DEBUG_DEPRECATED == 0 */
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
@ -2719,9 +2701,6 @@ scm_init_gc ()
scm_after_gc_hook = scm_create_hook ("after-gc-hook", 0); scm_after_gc_hook = scm_create_hook ("after-gc-hook", 0);
#if (SCM_DEBUG_DEPRECATED == 0)
scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
after_gc_thunk = scm_make_subr_opt ("%gc-thunk", scm_tc7_subr_0, gc_async_thunk, 0); after_gc_thunk = scm_make_subr_opt ("%gc-thunk", scm_tc7_subr_0, gc_async_thunk, 0);
gc_async = scm_system_async (after_gc_thunk); /* protected via scm_asyncs */ gc_async = scm_system_async (after_gc_thunk); /* protected via scm_asyncs */