From 9b79348068515e044d264b77c8f7e3b7e0253283 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 22 Nov 2015 19:26:46 -0600 Subject: [PATCH] Fixed a seeerrrrrrrrrious bug in the timing math --- eightsync/agenda.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm index 8905c1b..2b46324 100644 --- a/eightsync/agenda.scm +++ b/eightsync/agenda.scm @@ -248,13 +248,13 @@ Will produce (0 . 0) instead of a negative number, if needed." "Subtract TIME2 from TIME1" (time-carry-correct (cons (- (car time1) (car time2)) - (- (cdr time2) (cdr time2))))) + (- (cdr time1) (cdr time2))))) (define (time-plus time1 time2) "Add TIME1 and TIME2" (time-carry-correct (cons (+ (car time1) (car time2)) - (+ (cdr time2) (cdr time2))))) + (+ (cdr time1) (cdr time2))))) (define-record-type -- 2.31.1