diff options
| -rw-r--r-- | catbird/input-map.scm | 5 |
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)) |