* async.c (scm_sys_tick_async_thunk): commented out. I'm not
authorGary Houston <ghouston@arglist.com>
Tue, 29 Apr 1997 08:18:08 +0000 (08:18 +0000)
committerGary Houston <ghouston@arglist.com>
Tue, 29 Apr 1997 08:18:08 +0000 (08:18 +0000)
commit9ea54cc6fac446bcff93864da0ae89cac3815553
tree8b8e34608ab3610288a12017bb8146373d31d1f7
parent3be770134328bf69e0b67a74937b09456135bc70
* 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.
libguile/ChangeLog
libguile/async.c
libguile/async.h
libguile/gc.c