(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)