From da164ae3c4c3fbf6c000b0bb49bc915e734022f7 Mon Sep 17 00:00:00 2001 From: BirDt_ Date: Fri, 17 Apr 2026 22:38:59 +0800 Subject: [PATCH] Fix action registration --- engine/core.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/engine/core.scm b/engine/core.scm index db9d9a4..f4a43cc 100644 --- a/engine/core.scm +++ b/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