From 5d5d447356d7ec06e3d40ae690cb32c935704e58 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 26 Jan 2021 18:21:50 -0500 Subject: graphics: engine: Fix yet another finalizer issue. --- chickadee/graphics/engine.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chickadee/graphics/engine.scm b/chickadee/graphics/engine.scm index eda1547..4f1250f 100644 --- a/chickadee/graphics/engine.scm +++ b/chickadee/graphics/engine.scm @@ -264,7 +264,7 @@ (unless (find (match-lambda ((name . f) (and ((graphics-finalizer-predicate f) obj) - ((graphics-finalizer-free finalizer) obj) + ((graphics-finalizer-free f) obj) #t))) (atomic-box-ref *graphics-finalizers*)) (error "no finalizer for graphics engine object" obj)) -- cgit v1.2.3