tdelta as an alias for (make-time-delta)
authorChristopher Allan Webber <cwebber@dustycloud.org>
Thu, 19 Nov 2015 21:41:25 +0000 (15:41 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Thu, 19 Nov 2015 21:41:25 +0000 (15:41 -0600)
loopy.scm

index 4995021a67b509e3c4d3c13bd52a82494d437d2b..3954fea34a853c82e49726eaf40329f2a4509ba7 100644 (file)
--- 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>
 (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))))