array-equal?

[Chris Cramer]

Alright, is it just me or is array-equal? completely broken?

guile> (array-equal? (make-uniform-array 'a 1) (make-uniform-array 'a 1))
<unnamed port>:2:1: In procedure uniform-vector-length in expression 
(array-equal? (make-uniform-array # 1) (make-uniform-array # 1)):
<unnamed port>:2:1: Wrong type argument in position 1: #1(0)
ABORT: (wrong-type-arg)

Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
guile> (array-equal? '#y(0) '#y(0))
<unnamed port>:3:1: In procedure uniform-vector-length in expression 
(array-equal? (quote #y(0)) (quote #y(0))):
<unnamed port>:3:1: Wrong type argument in position 1: #1y(0)
ABORT: (wrong-type-arg)
guile> (array-equal? "a" "a")
<unnamed port>:4:1: In procedure uniform-vector-length in expression 
(array-equal? "a" "a"):
<unnamed port>:4:1: Wrong type argument in position 1: #1a(#\a)
ABORT: (wrong-type-arg)

I tried looking at scm_array_equal_p(), but it uh.. is hard to understand.
It looks way more complicated than it should be. Is there any particular
reason for that?

-- 
C. Ray C. aka Christopher Cramer
address@hidden
http://www.pyro.net/~crayc/