summaryrefslogtreecommitdiff
path: root/libguile/async.h
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-04-29 08:18:08 +0000
committerGary Houston <ghouston@arglist.com>1997-04-29 08:18:08 +0000
commit9ea54cc6fac446bcff93864da0ae89cac3815553 (patch)
tree8b8e34608ab3610288a12017bb8146373d31d1f7 /libguile/async.h
parent3be770134328bf69e0b67a74937b09456135bc70 (diff)
downloadguile-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.h2
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));