(no commit message)

[gacela.git] / gacela_tetris.scm

diff --git a/gacela_tetris.scm b/gacela_tetris.scm
index 63e0fc7669e258c44fb00b108d24f3e90453aedc..d27a08608fd0bb0393b22e83d585d8476d56a958 100644 (file)
--- 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)))))