summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-04 20:51:05 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-04 20:51:05 +0200
commit8b46c321e5beb483a83674af809da3bce1321984 (patch)
treebbdfc5951ad01b80a2aef0b16039395431e252e5
parent95856446f514f87229c87329828a3fefdeb75859 (diff)
downloadguile-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.scm2
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
(()