(define-module (gacela event)
#:use-module ((sdl2 events) #:prefix sdl2:)
#:export (process-events
+ clear-events
quit-event?
key-events
any-key-down?
(else
'()))))
+(define (clear-events)
+ (set! *current-events* '()))
+
(define (process-events)
- (set! *current-events* (poll-events)))
+ (set! *current-events* (append *current-events* (poll-events))))
(define (quit-event?)
(not (null? (filter (lambda (e) (sdl2:quit-event? e)) *current-events*))))