X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_events.scm;h=56099b38a240e56961ca0dbde5106e3cc8c054fe;hb=ee8cc28a7551d08466af97636c38e55516a22876;hp=cd939850027962c72d157a954b05fe8e490c83cb;hpb=c4dbd17a165312f189ec5211069dab4d039d5471;p=gacela.git

diff --git a/src/gacela_events.scm b/src/gacela_events.scm
index cd93985..56099b3 100644
--- a/src/gacela_events.scm
+++ b/src/gacela_events.scm
@@ -30,16 +30,21 @@
 
 (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))