From a012234d31abba1bcf26265fdaadce66356c4dc9 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 19 Nov 2015 15:41:25 -0600
Subject: [PATCH] tdelta as an alias for (make-time-delta)

---
 loopy.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))
-- 
2.31.1