From 89ae8c5fa52373444abb36075bcb539f71f533a6 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 26 Feb 2021 00:03:27 +0100 Subject: engine: run-node: Fix key-press handler arguments. --- engine/node.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/engine/node.scm b/engine/node.scm index b46651e..3ecd1eb 100644 --- a/engine/node.scm +++ b/engine/node.scm @@ -1,6 +1,6 @@ ;;; Lisp Game Jam 2018 ;;; Copyright © 2018 David Thompson -;;; Copyright © 2018, 2019, 2020 Ricardo Wurmus +;;; Copyright © 2018, 2019, 2020, 2021 Ricardo Wurmus ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -245,7 +245,7 @@ one." (lambda () (visit-while (cut on-quit <>) *root-node*)) #:key-press - (lambda (key sc mods repeat?) + (lambda (key mods repeat?) (visit-while (cut on-key-press <> key mods repeat?) *root-node*)) #:text-input -- cgit v1.2.3