(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))
#: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))