diff options
| -rw-r--r-- | chickadee/graphics/engine.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |