support for an init.lisp file for initial setup

[rulp/rulp.git] / graphics / inputs.lisp

diff --git a/graphics/inputs.lisp b/graphics/inputs.lisp
index 2ccf0a6..6212224 100644 (file)
--- a/graphics/inputs.lisp
+++ b/graphics/inputs.lisp
@@ -22,7 +22,7 @@
   (:documentation "given x y and the button pressed it do actions"))
 
 (defmethod activate (x y pressed (p plane))
-  (loop :for key :in *keybinds*
+  (loop :for key :in *mouse-keybinds*
         :do
            (when (sdl2:mouse-state-p (eval (car key)))
              (apply (cadr key) `(,x ,y ,p))