X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=73ef5682a91ad6fb80a2ec2e337055653bd9f3c3;hp=7172e9b57b3a6d7cefcaad6fe29c00248f3c6bd1;hb=268373ea0ff9c8317679fb7a49e41aeec5aa0906;hpb=7ff622de68d583e0dccc400aa887b8f52c7c592e

diff --git a/loopy.scm b/loopy.scm
index 7172e9b..73ef568 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -21,7 +21,7 @@
             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!
@@ -169,7 +169,7 @@
 (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)
@@ -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)
-      (schedule-split-segments-until schedule time)
+      (schedule-segments-split schedule time)
     (set-schedule-segments! schedule segments-after)
     segments-before))