X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_tetris.scm;h=d27a08608fd0bb0393b22e83d585d8476d56a958;hb=61cbb86694ce19f0d5dd44ccf847c9fbd61b8f7e;hp=63e0fc7669e258c44fb00b108d24f3e90453aedc;hpb=4e40519197d7b6e04e0d73204447bb9ed01ff3b1;p=gacela.git

diff --git a/gacela_tetris.scm b/gacela_tetris.scm
index 63e0fc7..d27a086 100644
--- a/gacela_tetris.scm
+++ b/gacela_tetris.scm
@@ -180,14 +180,13 @@
 	  (translate 0 -30)
 	  (render-text (format #f "Lines: ~a" (get-lines)) font))))
 
-(define (run-gacela-tetris)
-  (let ((frame 0.0) (fps (make-timer)) (update (make-timer)))
-    (start-timer update)
-    (start-timer fps)
-    (run-game
-     (game)
-     (set! frame (+ frame 1))
-     (cond ((> (get-time update) 1000)
-	    (display (/ frame (/ (get-time fps) 1000.0)))
-	    (newline)
-	    (start-timer update))))))
+(let ((frame 0.0) (fps (make-timer)) (update (make-timer)))
+  (start-timer update)
+  (start-timer fps)
+  (run-game
+   (game)
+   (set! frame (+ frame 1))
+   (cond ((> (get-time update) 1000)
+	  (display (/ frame (/ (get-time fps) 1000.0)))
+	  (newline)
+	  (start-timer update)))))