summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird/input-map.scm5
1 files 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))