From 8083fdd8123665d42d5233a9db03cc7015861b17 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay.mccarthy@gmail.com>
Date: Tue, 6 Nov 2018 13:45:15 -0500
Subject: [PATCH] Switch when frames wait

---
 word.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/word.rkt b/word.rkt
index 320f996..1e9f199 100644
--- a/word.rkt
+++ b/word.rkt
@@ -85,7 +85,7 @@
     (collect-garbage 'incremental)
 
     (define fps (word-fps w))
-    (define next-time (compute-next-time frame-end-time fps))
+    (define next-time (compute-next-time frame-start-time #;frame-end-time fps))
     (define deadline-evt (alarm-evt next-time))
     (define input-enabled? (fl= 0.0 fps))