diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-04 20:51:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-04 20:51:05 +0200 |
commit | 8b46c321e5beb483a83674af809da3bce1321984 (patch) | |
tree | bbdfc5951ad01b80a2aef0b16039395431e252e5 | |
parent | 95856446f514f87229c87329828a3fefdeb75859 (diff) | |
download | guile-8b46c321e5beb483a83674af809da3bce1321984.tar.gz |
Add finalizers at the guardian priority
This doesn't do anything yet for BDW.
* module/ice-9/guardians.scm (make-guardian): Fix add-finalizer!
invocation.
-rw-r--r-- | module/ice-9/guardians.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/guardians.scm b/module/ice-9/guardians.scm index 073525e1e..f5c181748 100644 --- a/module/ice-9/guardians.scm +++ b/module/ice-9/guardians.scm @@ -91,7 +91,7 @@ (define-values (push! pop!) (make-atomic-fifo)) (define (guard! obj) (when (heap-object? obj) - (add-finalizer! obj push!))) + (add-finalizer! obj push! %guardian-finalizer-priority))) (define guardian (case-lambda (() |