projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7ff622d
)
renaming schedule-segments-until -> schedule-segments-split
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 03:41:08 +0000
(21:41 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 03:41:08 +0000
(21:41 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index 7172e9b57b3a6d7cefcaad6fe29c00248f3c6bd1..73ef5682a91ad6fb80a2ec2e337055653bd9f3c3 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-21,7
+21,7
@@
schedule-add! schedule-empty?
schedule-segments
schedule-add! schedule-empty?
schedule-segments
- schedule-segments-
until
schedule-extract-until!
+ schedule-segments-
split
schedule-extract-until!
make-port-mapping
port-mapping-set! port-mapping-remove!
make-port-mapping
port-mapping-set! port-mapping-remove!
@@
-169,7
+169,7
@@
(define (schedule-empty? schedule)
(eq? (schedule-segments schedule) '()))
(define (schedule-empty? schedule)
(eq? (schedule-segments schedule) '()))
-(define (schedule-segments-
until
schedule time)
+(define (schedule-segments-
split
schedule time)
"Does a multiple value return of time segments before/at and after TIME"
(let ((time (time-segment-right-format time)))
(define (segment-is-now? segment)
"Does a multiple value return of time segments before/at and after TIME"
(let ((time (time-segment-right-format time)))
(define (segment-is-now? segment)
@@
-200,7
+200,7
@@
(define (schedule-extract-until! schedule time)
"Extract all segments until TIME from SCHEDULE, and pop old segments off"
(receive (segments-before segments-after)
(define (schedule-extract-until! schedule time)
"Extract all segments until TIME from SCHEDULE, and pop old segments off"
(receive (segments-before segments-after)
- (schedule-s
plit-segments-until
schedule time)
+ (schedule-s
egments-split
schedule time)
(set-schedule-segments! schedule segments-after)
segments-before))
(set-schedule-segments! schedule segments-after)
segments-before))