diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2022-11-08 20:57:15 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-11-08 20:57:15 -0500 |
| commit | 41dc10e6681835a0a8a9f7d33a8bedcd23396f74 (patch) | |
| tree | 5bf44d880c8253b94db4f91f37309a2f6b9da61a | |
| parent | 81e023697d392efac741280fcb6b13c0e74bb309 (diff) | |
input-map: Fix broken remove-input procedure.
| -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)) |