From: Javier Sancho <jsf@jsancho.org>
Date: Thu, 16 Apr 2020 18:37:07 +0000 (+0200)
Subject: Fix key events processing
X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=commitdiff_plain;h=2ae1221490c48228d5cb86550f8d1d33e8db930a

Fix key events processing
---

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index e97263e..5d5467f 100644
--- a/src/event-receiver.cpp
+++ b/src/event-receiver.cpp
@@ -34,8 +34,8 @@ extern "C" {
   {
     init_event_receiver_type ();
     init_event_type ();
-    DEFINE_GSUBR ("event-key-input-key", 1, 0, 0, event_type);
-    DEFINE_GSUBR ("event-key-input-pressed", 1, 0, 0, event_type);
+    DEFINE_GSUBR ("event-key-input-key", 1, 0, 0, event_key_input_key);
+    DEFINE_GSUBR ("event-key-input-pressed", 1, 0, 0, event_key_input_pressed);
     DEFINE_GSUBR ("event-type", 1, 0, 0, event_type);
     DEFINE_GSUBR ("make-event-receiver", 1, 0, 0, make_event_receiver);
   }