From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 19 Nov 2015 21:41:25 +0000 (-0600)
Subject: tdelta as an alias for (make-time-delta)
X-Git-Tag: v0.1.0~143
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=a012234d31abba1bcf26265fdaadce66356c4dc9;p=8sync.git

tdelta as an alias for (make-time-delta)
---

diff --git a/loopy.scm b/loopy.scm
index 4995021..3954fea 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -18,7 +18,7 @@
             time-< time-= time-<= time-+
 
             <time-delta>
-            make-time-delta time-delta?
+            make-time-delta tdelta time-delta?
             time-delta-sec time-delta-usec
 
             <schedule>
@@ -141,6 +141,8 @@
 (define* (make-time-delta sec #:optional usec)
   (make-time-delta-intern sec (or usec 0)))
 
+(define tdelta make-time-delta)
+
 (define (time-+ time time-delta)
   (cons (+ (car time) (time-delta-sec time-delta))
         (+ (cdr time) (time-delta-usec time-delta))))