Thanks!

What is the status of

(define (range-append . ranges)
  (let ((lens (map range-length ranges)))
    (range (fold + 0 lens)
              (lambda (i)
                (let f ((i i) (ranges ranges) (lens lens))
                  (if (< i (car lens)) (range-ref (car ranges) i) (f
(- i (car lens)) (cdr ranges) (cdr lens)))))))

?

Am Di., 1. Sept. 2020 um 19:12 Uhr schrieb John Cowan <xxxxxx@ccil.org>:
>
> Fixed and pushed.
>
> On Tue, Sep 1, 2020 at 11:45 AM Marc Nieper-Wißkirchen <xxxxxx@nieper-wisskirchen.de> wrote:
>>
>> Am Di., 1. Sept. 2020 um 17:29 Uhr schrieb John Cowan <xxxxxx@ccil.org>:
>> >
>> > Also added for range->list for uniformity's sake, though probably less useful.
>>
>> Is there any situation or implementation of range->list imaginable
>> where the result must not be modified because it would modify the
>> range?
>>
>> If not, I'd suggest reverting back range->list to the more liberal
>> specification because otherwise we just see needless list copies in
>> user code.