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

diff --git a/loopy.scm b/loopy.scm
index 4995021a67b509e3c4d3c13bd52a82494d437d2b..3954fea34a853c82e49726eaf40329f2a4509ba7 100644 (file)
--- a/loopy.scm
+++ b/loopy.scm
@@ -18,7 +18,7 @@
             time-< time-= time-<= time-+
 
             <time-delta>
             time-< time-= time-<= time-+
 
             <time-delta>

-            make-time-delta time-delta?
+            make-time-delta tdelta time-delta?

             time-delta-sec time-delta-usec
 
             <schedule>
             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* (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))))
 (define (time-+ time time-delta)
   (cons (+ (car time) (time-delta-sec time-delta))
         (+ (cdr time) (time-delta-usec time-delta))))