From 7632fae64f51615f38d3a1d2a2dbb303968faf99 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Apr 2007 22:33:18 +0000 Subject: [PATCH] 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 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/srfi/63/63.ss b/collects/srfi/63/63.ss index 19d995d3a7..9b5ead401f 100644 --- a/collects/srfi/63/63.ss +++ b/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))