diff options
author | Gary Houston <ghouston@arglist.com> | 1997-04-29 08:18:08 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-04-29 08:18:08 +0000 |
commit | 9ea54cc6fac446bcff93864da0ae89cac3815553 (patch) | |
tree | 8b8e34608ab3610288a12017bb8146373d31d1f7 /libguile/async.h | |
parent | 3be770134328bf69e0b67a74937b09456135bc70 (diff) | |
download | guile-9ea54cc6fac446bcff93864da0ae89cac3815553.tar.gz |
* async.c (scm_sys_tick_async_thunk): commented out. I'm not
sure how this was supposed to work.
(scm_async_click): don't send SCM_TICK_SIGNAL.
(scm_init_async): don't initialize %tick-thunk.
* the following change doesn't affect the Scheme interface:
gc-thunk is called at the end of garbage collection. however it's
no longer implemented by pretending it's a signal.
* gc.c (scm_gc_end): don't call scm_take_signal. instead mark the
system async corresponding to scm_gc_thunk.
* async.h: declare scm_gc_async.
* async.c (scm_sys_gc_async_thunk): apply the thunk named by
gc-thunk directly, instead of going through a signal handler.
(scm_gc_async): new variable, points to the GC system-async.
(scm_init_async): save the GC async as scm_gc_async instead
of using system_signal_asyncs.
(scm_gc_vcell): new variable, stores the gc-thunk vcell.
Diffstat (limited to 'libguile/async.h')
-rw-r--r-- | libguile/async.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/async.h b/libguile/async.h index 217603ba6..80c02401d 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -50,7 +50,7 @@ extern unsigned int scm_mask_ints; - +extern SCM scm_gc_async; extern void scm_async_click SCM_P ((void)); |