From 6c1fb80498af1ad2767ab200132de2a31aece4ae Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 31 Jul 2013 22:51:07 -0400
Subject: Use the current-time argument in time-left.

---
 2d/game-loop.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index d8554db..5ba0889 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -138,7 +138,7 @@ is the unused accumulator time."
     accumulator))
 
 (define (time-left current-time next-time)
-  (max (floor (- next-time (SDL:get-ticks))) 0))
+  (max (floor (- next-time current-time)) 0))
 
 ;;;
 ;;; Game Loop
-- 
cgit v1.2.3