X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F04-movement.scm;fp=examples%2F04-movement.scm;h=c6efed604d2474ab29a528e2261e079cd7b580ed;hb=70a3e723e41be522422f3e49faa060c64227bca8;hp=e0592c3645f93c65b4d64113249b4af6748a535a;hpb=722b34ded15dc5317aa45f205b5fc85a78a394b5;p=guile-irrlicht.git

diff --git a/examples/04-movement.scm b/examples/04-movement.scm
index e0592c3..c6efed6 100644
--- a/examples/04-movement.scm
+++ b/examples/04-movement.scm
@@ -54,11 +54,11 @@
   (assoc-ref key-is-down key-code))
 
 (define (on-event event)
-  (if (equal? (event-type event) 'key-input-event)
+  (if (equal? (get-event-type event) 'key-input-event)
       (set! key-is-down
             (assoc-set! key-is-down
-                        (event-key-input-key event)
-                        (event-key-input-pressed event))))
+                        (get-event-key-input-key event)
+                        (get-event-key-input-pressed event))))
   #f)
 
 (define receiver (make-event-receiver on-event))