get-event-key get-event-key-pressed

[guile-irrlicht.git] / examples / 04-movement.scm

diff --git a/examples/04-movement.scm b/examples/04-movement.scm
index c6efed604d2474ab29a528e2261e079cd7b580ed..79f12c5788064d43f3f20896b6a72282904a88fb 100644 (file)
--- 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))
@@ -69,8 +69,6 @@
    #:device-type device-type
    #:window-size '(640 480)
    #:receiver receiver))
-(when (not device)
-  (exit #f))
 
 (define driver (get-video-driver device))
 (define scene-manager (get-scene-manager device))