diff options
| -rw-r--r-- | sly/input/mouse.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sly/input/mouse.scm b/sly/input/mouse.scm index c6d2b96..fce0d26 100644 --- a/sly/input/mouse.scm +++ b/sly/input/mouse.scm @@ -96,7 +96,7 @@ button is pressed or #f otherwise." (eq? button other-button)) (define (button-filter value signal) - (signal-constant value (signal-filter #f same-button? signal))) + (signal-constant value (signal-filter same-button? #f signal))) (signal-merge (button-filter #f mouse-last-up) (button-filter #t mouse-last-down))) |