From 268373ea0ff9c8317679fb7a49e41aeec5aa0906 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 18 Nov 2015 21:41:08 -0600 Subject: [PATCH] renaming schedule-segments-until -> schedule-segments-split --- loopy.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.31.1