diff options
| author | Muriithi Frederick Muriuki <fredmanglis@gmail.com> | 2016-08-17 19:11:28 +0300 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2016-08-17 13:22:47 -0400 |
| commit | f2f7778d36d266ba308f410b83f9eb67e2692c73 (patch) | |
| tree | 817334ef68b68e72afeb2fb3da2d70d8b14c1189 | |
| parent | 54f85fc9ef316a355e432a7461aac36282742614 (diff) | |
input: mouse: Fix mouse-down? signal.
* sly/input/mouse.scm (mouse-down?): Correct the order of the arguments
passed to the signal-filter procedure.
| -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))) |