From 5f4df3b1384a73e46b5fb0ef61551e875724f88b Mon Sep 17 00:00:00 2001
From: "Casper V. Kristensen" <c@spervk.com>
Date: Thu, 20 Jun 2019 00:10:37 +0200
Subject: [PATCH] Improve warping code slightly.

---
 lib/warp.ks | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/warp.ks b/lib/warp.ks
index e8bb9b6..2d028f3 100644
--- a/lib/warp.ks
+++ b/lib/warp.ks
@@ -3,13 +3,16 @@
 function warp_to {
     parameter timestamp.
 
+    if timestamp <= TIME:seconds {
+        return.
+    }
+
+    print "Warping for " + round(timestamp - TIME:seconds, 1) + " seconds".
     KUNIVERSE:timewarp:warpto(timestamp).  // TODO: improve.
     wait until TIME:seconds >= timestamp. // TODO
 }
 
 function warp_for {
     parameter seconds.
-
-    print "Warping for " + round(seconds, 1) + " seconds".
     return warp_to(TIME:seconds + seconds).
 }