SRFI 231: vector*->array failures

[gambiteer]

I haven't been able to figure out why these fail:

    1 failure (7.7%).
    12 errors (92.3%).
    FAIL: (array-every equal? (list*->array 2 '(((a b c) (1 2)))) (list->...
        assertion failed
        on line 579 of file "test-arrays.scm"
        (array-every equal? (list*->array 2 '(((a b c) (1 2)))) (list->array (make-interval '#(1 2)) '((a b c) (1 2))))
    ERROR: (array-every equal? (list*->array 0 '()) (make-array (make-inte...
        Exception: car: not a pair: ()
        on line 584 of file "test-arrays.scm"
        (array-every equal? (list*->array 0 '()) (make-array (make-interval '#()) (lambda () '())))
    ERROR: (array-every equal? (list*->array 1 '()) (make-array (make-inte...
        Exception: car: not a pair: ()
        on line 588 of file "test-arrays.scm"
        (array-every equal? (list*->array 1 '()) (make-array (make-interval '#(0)) (lambda () (error))))
    ERROR: (array-every equal? (list*->array 2 '()) (make-array (make-inte...
        Exception: car: not a pair: ()
        on line 592 of file "test-arrays.scm"
        (array-every equal? (list*->array 2 '()) (make-array (make-interval '#(0 0)) (lambda () (error))))
    ERROR: (array-every equal? (list*->array 2 '(() ())) (make-array (make...
        Exception: car: not a pair: ()
        on line 596 of file "test-arrays.scm"
        (array-every equal? (list*->array 2 '(() ())) (make-array (make-interval '#(2 0)) (lambda () (error))))
    ERROR: (array-every equal? (vector*->array 2 '#(#(a b c) #(1 2 3))) (l...
        Exception: car: not a pair: ()
        on line 600 of file "test-arrays.scm"
        (array-every equal? (vector*->array 2 '#(#(a b c) #(1 2 3))) (list->array (make-interval '#(2 3)) '(a b c 1 2 3)))
    ERROR: (array-every equal? (vector*->array 3 '#(#(#(a b c) #(1 2 3))))...
        Exception: car: not a pair: ()
        on line 605 of file "test-arrays.scm"
        (array-every equal? (vector*->array 3 '#(#(#(a b c) #(1 2 3)))) (list->array (make-interval '#(1 2 3)) '(a b c 1 2 3)))
    ERROR: (array-every equal? (vector*->array 2 '#(#((a b c) (1 2 3)))) (...
        Exception: car: not a pair: ()
        on line 610 of file "test-arrays.scm"
        (array-every equal? (vector*->array 2 '#(#((a b c) (1 2 3)))) (list->array (make-interval '#(1 2)) '((a b c) (1 2 3))))
    ERROR: (array-every equal? (vector*->array 2 '#(#((a b c) (1 2)))) (li...
        Exception: car: not a pair: ()
        on line 615 of file "test-arrays.scm"
        (array-every equal? (vector*->array 2 '#(#((a b c) (1 2)))) (list->array (make-interval '#(1 2)) '((a b c) (1 2))))
    ERROR: (array-every equal? (vector*->array 0 '#()) (make-array (make-i...
        Exception: vector-ref: index out of range
    #()
    0
        on line 620 of file "test-arrays.scm"
        (array-every equal? (vector*->array 0 '#()) (make-array (make-interval '#()) (lambda () '#())))
    ERROR: (array-every equal? (vector*->array 1 '#()) (make-array (make-i...
        Exception: vector-ref: index out of range
    #()
    0
        on line 624 of file "test-arrays.scm"
        (array-every equal? (vector*->array 1 '#()) (make-array (make-interval '#(0)) (lambda () (error))))
    ERROR: (array-every equal? (vector*->array 2 '#()) (make-array (make-i...
        Exception: vector-ref: index out of range
    #()
    0
        on line 628 of file "test-arrays.scm"
        (array-every equal? (vector*->array 2 '#()) (make-array (make-interval '#(0 0)) (lambda () (error))))
    ERROR: (array-every equal? (vector*->array 2 '#(#() #())) (make-array ...
        Exception: vector-ref: index out of range
    #()
    0
        on line 632 of file "test-arrays.scm"
        (array-every equal? (vector*->array 2 '#(#() #())) (make-array (make-interval '#(2 0)) (lambda () (error))))

[ashinn]

The tests within the Chibi distribution are failing for me now as well, though they used to all pass. Let me fix those first.

[gambiteer]

I just tested this after your changes, and it still fails.

[ashinn]

Stupid mistake and I had never tested this, should work now but I still need to merge the new SRFI 231 tests - the current test suite is just an updated SRFI 179 one.