add a cond (the indentation suggests that it used to be there) to make 63.ss file compile

svn: r6061

collects/srfi/63/63.ss

@@ -154,6 +154,7 @@
                    (and (s:equal? (vector-ref obj1 idx)
                                   (vector-ref obj2 idx))
                         (lp (sub1 idx))))))
+        (cond
           ((my-array? obj1)                
            (and (array? obj2)
                 (equal? (array-dimensions obj1) (array-dimensions obj2))
@@ -169,7 +170,7 @@
                        (not obj2-skipped?)
                        (s:equal? (struct->vector obj1)
                                  (struct->vector obj2))))))
-          (else #f)))
+          (else #f))))
   
   (define (array-rank obj)
     (if (array? obj) (length (array-dimensions obj)) 0))