projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add repl.scm (can't believe I forgot it before!) and use it in irc.scm
[8sync.git]
/
eightsync
/
agenda.scm
diff --git
a/eightsync/agenda.scm
b/eightsync/agenda.scm
index 8905c1b6c46241d4f1aac9dfe4d4a14a2077d5c3..2b46324bfe7a30f2c94af2281c28906374d585f6 100644
(file)
--- 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))
"Subtract TIME2 from TIME1"
(time-carry-correct
(cons (- (car time1) (car time2))
- (- (cdr time
2
) (cdr time2)))))
+ (- (cdr time
1
) (cdr time2)))))
(define (time-plus time1 time2)
"Add TIME1 and TIME2"
(time-carry-correct
(cons (+ (car time1) (car time2))
(define (time-plus time1 time2)
"Add TIME1 and TIME2"
(time-carry-correct
(cons (+ (car time1) (car time2))
- (+ (cdr time
2
) (cdr time2)))))
+ (+ (cdr time
1
) (cdr time2)))))
(define-record-type <schedule>
(define-record-type <schedule>