From 41dc10e6681835a0a8a9f7d33a8bedcd23396f74 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 8 Nov 2022 20:57:15 -0500
Subject: input-map: Fix broken remove-input procedure.

---
 catbird/input-map.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/catbird/input-map.scm b/catbird/input-map.scm
index 4fdf62c..dc3bd85 100644
--- a/catbird/input-map.scm
+++ b/catbird/input-map.scm
@@ -55,8 +55,9 @@
 
 (define (remove-input input-map spec)
   (delete spec input-map
-          (match-lambda
-            ((s . _) (equal? s spec)))))
+          (match-lambda*
+            ((a (b . _))
+             (equal? a b)))))
 
 (define* (key-press key #:optional (modifiers '()))
   `(keyboard ,key ,modifiers down))
-- 
cgit v1.2.3