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

* No binding is created for %gc-thunk any more.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-06 16:42:16 +00:00
parent a4bb4e6d09
commit 78573619d0
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2000-12-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_init_gc): Don't create a binding for %gc-thunk.
2000-12-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gsubr.c: No need to include vector.h.

3
libguile/gc.c
View file

@ -2580,8 +2580,7 @@ scm_init_gc ()
#if (SCM_DEBUG_DEPRECATED == 0)
scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
#endif /* SCM_DEBUG_DEPRECATED == 0 */
/* Dirk:FIXME:: We don't really want a binding here. */
after_gc_thunk = scm_make_gsubr ("%gc-thunk", 0, 0, 0, gc_async_thunk);
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);
scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);