On 2020-09-01 19:27 +0200, Marc Nieper-Wißkirchen wrote:
> 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)))))))

Nice implementation!  Added in my repository.

--
Wolfgang Corcoran-Mathe  <xxxxxx@sigwinch.xyz>

"The intellectual advancement of man depends on how often he can
exchange an old superstition for a new truth." --Robert G. Ingersoll