(no commit message)

[gacela.git] / src / gacela_events.scm

diff --git a/src/gacela_events.scm b/src/gacela_events.scm
index a57e9a13039617ef1347e42eb53d6157283d6233..56099b38a240e56961ca0dbde5106e3cc8c054fe 100644 (file)
--- a/src/gacela_events.scm
+++ b/src/gacela_events.scm
@@ -30,22 +30,27 @@
 
 (define (process-events)
   (let ((events (poll-events)))
-    (quit? (not (null? (get-event events `(,SDL_QUIT)))))
+    (quit! (not (null? (get-event events `(,SDL_QUIT)))))
     (clear-key-state)
     (process-keyboard-events (get-event events `(,SDL_KEYDOWN ,SDL_KEYUP)))))
 
 (define quit? #f)
+(define quit! #f)
 
 (let ((quit #f))
   (set! quit?
-       (lambda* (#:optional (value '()))
-         (if (null? value) quit (set! quit value)))))
+       (lambda ()
+         quit))
+
+  (set! quit!
+       (lambda (value)
+         (set! quit value))))
 
 (define (process-keyboard-events events)
   (cond ((not (null? events))
         (let ((event (car events)))
           (cond ((= (assoc-ref event 'type) SDL_KEYDOWN) (key-press (assoc-ref event 'key.keysym.sym)))
-                ((= (assoc-ref event 'type) SDL_KEYUP) (key-release (assoc-ref event :key.keysym.sym)))))
+                ((= (assoc-ref event 'type) SDL_KEYUP) (key-release (assoc-ref event 'key.keysym.sym)))))
         (process-keyboard-events (cdr events)))))
 
 (define key? #f)