mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 19:20:27 +02:00
More refactors off BDW API
* libguile/gc.c (gc): Use Guile finalization API, not BDW. * libguile/threads.c (guilify_self_2): Don't finalize here.
This commit is contained in:
parent
17ca7a928e
commit
8cb15a9e1b
2 changed files with 2 additions and 4 deletions
|
@ -36,6 +36,7 @@
|
|||
#include "deprecation.h"
|
||||
#include "dynwind.h"
|
||||
#include "eval.h"
|
||||
#include "finalizers.h"
|
||||
#include "gen-scmconfig.h"
|
||||
#include "gsubr.h"
|
||||
#include "hashtab.h"
|
||||
|
@ -440,7 +441,7 @@ SCM_DEFINE (scm_gc, "gc", 0, 0, 0,
|
|||
scm_i_gc ("call");
|
||||
/* If you're calling scm_gc(), you probably want synchronous
|
||||
finalization. */
|
||||
GC_invoke_finalizers ();
|
||||
scm_run_finalizers ();
|
||||
return SCM_UNSPECIFIED;
|
||||
}
|
||||
#undef FUNC_NAME
|
||||
|
|
|
@ -464,9 +464,6 @@ guilify_self_2 (SCM dynamic_state)
|
|||
t->dynstack.top = t->dynstack.base + SCM_DYNSTACK_HEADER_LEN;
|
||||
|
||||
t->block_asyncs = 0;
|
||||
|
||||
/* See note in finalizers.c:queue_finalizer_async(). */
|
||||
GC_invoke_finalizers ();
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue