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