From f2f7778d36d266ba308f410b83f9eb67e2692c73 Mon Sep 17 00:00:00 2001 From: Muriithi Frederick Muriuki Date: Wed, 17 Aug 2016 19:11:28 +0300 Subject: input: mouse: Fix mouse-down? signal. * sly/input/mouse.scm (mouse-down?): Correct the order of the arguments passed to the signal-filter procedure. --- sly/input/mouse.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- cgit v1.2.3