engine/core.scm

@@ -371,7 +371,7 @@
   (assert (symbol? name))
   (assert (member type '(key-press)))
   (set! input-actions
-    (cons (list name
+    (cons (cons name
 		(apply (cond
 			((eqv? type 'key-press) make-key-press))
 		       data))
@@ -389,9 +389,10 @@
      (lambda (action)
        (cond
 	((key-press? (cdr action))
-	 (push-event 'input
-		     (car action)
-		     (cdr action)))))
+	 (when (key-pressed? (key-press-key (cdr action)))
+	   (push-event 'input
+		       (car action)
+		       (cdr action))))))
      input-actions))))
 
 ;; Render queue exports