suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

srfi 63 make-shared-array contract fix (from Chongkai)

Browse Source 
svn: r6425
This commit is contained in:
Matthew Flatt 2007-05-31 05:06:49 +00:00
parent 44a49ff272
commit 321c489ef5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/srfi/63/63.ss
View File

@ -332,9 +332,10 @@
(make-shared-array (make-shared-array
(->* (array? (->* (array?
(unconstrained-domain-> natural-number/c)) (unconstrained-domain-> (listof natural-number/c)))
(listof natural-number/c) (listof natural-number/c)
any)) any))
(list->array (list->array
(->r ((rank natural-number/c) (->r ((rank natural-number/c)
(proto array?) (proto array?)