SRFI 231: array-append - Githubissues

I don't know how to fix this one:

heine:~/lang/scheme/srfi-231/srfi-231-temp/chibi-test> chibi-scheme
> (import (srfi 231))
> 
(array-append
 1
 (list
  (list->array
   (make-interval (quote #(1 -9 -1 3))
                  (quote #(5 -8 5 8)))
   '(0 4 9 1 7 4 5 9 5 2 2 2 2 5 7 1 5 2 1 1 5 4 6 1 1 2 5 2 5 3 5 7 1 6 9 5 4 4 6 2 2 8 4 6 5 4 2 5 9 7 1 8 4 0 6 9 8 7 9 8 0 9 4 0 0 4 4 5 8 3 7 8 0 4 4 7 1 1 1 1 2 9 1 5 7 0 5 0 4 4 5 0 3 7 1 2 9 5 7 7 6 0 2 5 4 9 0 6 1 2 2 4 4 6 4 3 0 1 8 6))
  (list->array
   (make-interval (quote #(1 -8 -1 3))
                  (quote #(5 -6 5 8)))
   '(3 1 9 0 4 3 7 4 6 2 9 9 4 7 2 4 4 4 7 4 6 9 5 3 4 3 6 8 1 4 2 3 0 6 5 9 1 4 0 9 7 9 0 5 7 5 4 1 0 6 4 6 5 1 4 4 6 2 3 3 3 5 0 5 8 3 8 1 3 1 2 6 5 5 2 6 5 3 3 3 4 5 9 7 9 7 4 1 9 8 7 8 4 9 5 3 0 0 1 9 8 9 8 4 7 3 9 3 5 0 9 7 4 6 8 4 3 0 7 7 7 0 9 7 3 2 7 6 9 2 0 1 0 1 1 9 7 7 1 9 7 0 9 9 0 0 7 6 5 2 9 2 9 4 9 3 7 6 1 8 9 4 4 4 5 7 2 4 6 0 3 0 7 4 3 6 3 0 3 2 2 4 4 0 1 9 3 9 8 5 7 3 9 8 9 2 4 1 8 4 4 5 6 9 3 7 2 8 2 9 0 4 6 6 7 4 2 2 3 1 7 0 8 4 8 7 6 4 3 9 2 7 1 1 9 0 1 8 3 1))
  (list->array
   (make-interval (quote #(1 -6 -1 3))
                  (quote #(5 -6 5 8)))
   '())
  (list->array
   (make-interval (quote #(1 -6 -1 3))
                  (quote #(5 -5 5 8)))
   '(3 1 6 2 8 0 8 1 2 6 7 2 9 4 6 5 2 4 5 4 5 2 6 6 0 6 4 2 1 3 4 6 9 6 7 2 4 8 4 3 5 5 8 0 6 4 6 3 7 6 3 4 1 6 2 3 1 9 1 0 3 1 5 0 3 5 8 1 8 0 2 3 1 5 0 4 9 5 3 2 0 7 6 5 5 9 4 8 5 3 2 5 1 4 8 4 5 7 4 6 1 5 8 2 0 1 5 0 8 3 0 4 6 1 7 1 7 1 6 9))))
ERROR: assertion failed
    (and (mutable-array? destination) (array? source) (interval= (array-domain destination) (array-domain source)))
    (destination #<Array 140705117395392>)
    (source #<Array 140705118036800>)

I don't know how to fix it, the error is triggered in array-assign! called from this line in transforms.scm:

                  (array-assign! view b)

ashinn / chibi-scheme

SRFI 231: array-append #972