X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fevents.scm;h=fb21d88f85985d3d911a30cfb33a70ad48a15c86;hb=62f29c535971a4af5c4a957444a53eb6007b32e3;hp=dfe9e60c8afde01c0d91b272b6b4632b9ef109d4;hpb=87113ec10dbf6cb477e12898bbd29da3697f344f;p=gacela.git

diff --git a/src/events.scm b/src/events.scm
index dfe9e60..fb21d88 100644
--- a/src/events.scm
+++ b/src/events.scm
@@ -18,7 +18,7 @@
 (define-module (gacela events)
   #:use-module (gacela sdl)
   #:export (process-events
-	    quit?
+	    quit-signal?
 	    key?
 	    key-pressed?
 	    key-released?))
@@ -54,7 +54,7 @@
 	   (cond ((= (assoc-ref event 'type) SDL_QUIT) (set! quit-signal #t))))
 	 (process-screen-events (cdr events)))))
 
-(define (quit?)
+(define (quit-signal?)
   quit-signal)