diff options
Diffstat (limited to 'sly/input/mouse.scm')
| -rw-r--r-- | sly/input/mouse.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/sly/input/mouse.scm b/sly/input/mouse.scm index c6d2b96..815fee6 100644 --- a/sly/input/mouse.scm +++ b/sly/input/mouse.scm @@ -53,8 +53,10 @@ ;; Sly uses the bottom-left as the origin, so invert ;; the y-axis for convenience. (match-lambda - (($ <vector2> x y) - (vector2 x (- (signal-ref window-height) y)))))) + ((? vector2? v) + (vector2 (vector2-x v) + (- (signal-ref window-height) + (vector2-y v))))))) (define-signal mouse-x (signal-map vx mouse-position)) (define-signal mouse-y (signal-map vy mouse-position)) |