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

* Cleaned up initialization of asyncs.

Browse source 
* Moved handling of scm_gc_async to gc.c.
* Extracted handling of scheme level after-gc-hook from gc core.
This commit is contained in:
Dirk Herrmann 2000-06-28 10:26:52 +00:00
parent 12acbbef54
commit 939794ce7f
5 changed files with 106 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

38
libguile/async.c
View file

@ -51,7 +51,6 @@
#include "libguile/throw.h"
#include "libguile/root.h"
#include "libguile/smob.h"
#include "libguile/gc.h"
#include "libguile/validate.h"
#include "libguile/async.h"
@ -442,36 +441,6 @@ SCM_DEFINE (scm_set_switch_rate, "set-switch-rate", 1, 0, 0,
#undef FUNC_NAME
#endif
/* points to the GC system-async, so that scm_gc_end can find it. */
SCM scm_gc_async;
/* the vcell for gc-thunk. */
static SCM scm_gc_vcell;
/* the thunk installed in the GC system-async, which is marked at the
end of garbage collection. */
static SCM
scm_sys_gc_async_thunk (void)
{
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;
}
@ -501,15 +470,10 @@ SCM_DEFINE (scm_mask_signals, "mask-signals", 0, 0, 0,
void
scm_init_async ()
{
SCM a_thunk;
scm_asyncs = SCM_EOL;
tc16_async = scm_make_smob_type ("async", 0);
scm_set_smob_mark (tc16_async, mark_async);
scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
a_thunk = scm_make_gsubr ("%gc-thunk", 0, 0, 0, scm_sys_gc_async_thunk);
scm_gc_async = scm_system_async (a_thunk);
#include "libguile/async.x"
}