X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=examples%2F04-movement.scm;h=79f12c5788064d43f3f20896b6a72282904a88fb;hp=8d63a739de23e842ac2fc9611dc5bf6e12f57fd8;hb=ce7e819e40265f68560c3a6cf309d259c2a77910;hpb=537c949563f0f1f0419aef8b84c75e5042fd1b08

diff --git a/examples/04-movement.scm b/examples/04-movement.scm
index 8d63a73..79f12c5 100644
--- a/examples/04-movement.scm
+++ b/examples/04-movement.scm
@@ -57,8 +57,8 @@
   (if (equal? (get-event-type event) 'key-input-event)
       (set! key-is-down
             (assoc-set! key-is-down
-                        (get-event-key-input-key event)
-                        (get-event-key-input-pressed event))))
+                        (get-event-key event)
+                        (get-event-key-pressed event))))
   #f)
 
 (define receiver (make-event-receiver on-event))