From c356e8f4e82e89508867c90add122cf015166301 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 26 Jan 2021 18:16:37 -0500
Subject: graphics: engine: Fix graphics-engine-reap!

---
 chickadee/graphics/engine.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/chickadee/graphics/engine.scm b/chickadee/graphics/engine.scm
index 7595c72..bbb1667 100644
--- a/chickadee/graphics/engine.scm
+++ b/chickadee/graphics/engine.scm
@@ -3,6 +3,7 @@
   #:use-module (chickadee math matrix)
   #:use-module (gl)
   #:use-module (ice-9 atomic)
+  #:use-module (ice-9 match)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:use-module (system foreign)
@@ -260,9 +261,9 @@
   (let ((guardian (graphics-engine-guardian engine)))
     (let loop ((obj (guardian)))
       (when obj
-        (let ((finalizer (find (lambda (f)
-                                 (let ((pred (graphics-finalizer-predicate f)))
-                                   (pred obj)))
+        (let ((finalizer (find (match-lambda
+                                 ((name . f)
+                                  ((graphics-finalizer-predicate f) obj)))
                                (atomic-box-ref *graphics-finalizers*))))
           (if finalizer
               ((graphics-finalizer-free finalizer) obj)
-- 
cgit v1.2.3