diff --git a/src/move-wm.scm b/src/move-wm.scm index eeebbf0..46c8800 100644 --- a/src/move-wm.scm +++ b/src/move-wm.scm @@ -80,8 +80,8 @@ (lambda (c.x) (- (cdr c.x) (rectangle:x r)))) (else 0))) (dy (cond - ((assq (window-change x) changes) => - (lambda (c.x) (- (cdr c.x) (rectangle:x r)))) + ((assq (window-change y) changes) => + (lambda (c.y) (- (cdr c.y) (rectangle:y r)))) (else 0))) (dw (cond ((assq (window-change width) changes) =>