mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* Undid my last patch and added a comment why it was unnecessary.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-07 13:46:33 +00:00
parent 7c58e21b08
commit 23670993da
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2000-12-07 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_init_gc): gc_async is already protected from gc,
namely via scm_asyncs. Thanks to Keisuke Nishida for pointing
this out.
2000-12-07 Keisuke Nishida <kxn30@po.cwru.edu> 2000-12-07 Keisuke Nishida <kxn30@po.cwru.edu>
* smob.h (scm_smob_apply_0, scm_smob_apply_1, scm_smob_apply_2, * smob.h (scm_smob_apply_0, scm_smob_apply_1, scm_smob_apply_2,

3
libguile/gc.c
View file

@ -2581,8 +2581,7 @@ scm_init_gc ()
scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F); scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
#endif /* SCM_DEBUG_DEPRECATED == 0 */ #endif /* SCM_DEBUG_DEPRECATED == 0 */
after_gc_thunk = scm_make_subr_opt ("%gc-thunk", scm_tc7_subr_0, gc_async_thunk, 0); 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); gc_async = scm_system_async (after_gc_thunk); /* protected via scm_asyncs */
scm_permanent_object (gc_async);
scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0); scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);