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