From 321c489ef5fdaf4dfe19d0b636de7799b66e94d9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 31 May 2007 05:06:49 +0000
Subject: [PATCH] srfi 63 make-shared-array contract fix (from Chongkai)

svn: r6425
---
 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 83dfcde663..cfe9082cde 100644
--- a/collects/srfi/63/63.ss
+++ b/collects/srfi/63/63.ss
@@ -332,9 +332,10 @@
    
    (make-shared-array
     (->* (array?
-          (unconstrained-domain-> natural-number/c))
+          (unconstrained-domain-> (listof natural-number/c)))
          (listof natural-number/c)
          any))
+   
    (list->array
     (->r ((rank natural-number/c)
           (proto array?)