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

fix make-arr

Browse Source 
svn: r13926

original commit: 0eda7878d5b7e7b9cbaac8db4794cc5cd94ecfdd
This commit is contained in:
Sam Tobin-Hochstadt 2009-03-03 21:53:26 +00:00
parent c28b5d1eb7
commit 5d73d8eae2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/types/type-abbrev.ss
View File

@ -154,12 +154,12 @@
#:filters [filters -no-lfilter] #:object [obj -no-lobj])
(c:->* ((listof Type/c) Type/c)
(#:rest Type/c
#:drest (cons/c symbol? Type/c)
#:drest (cons/c Type/c symbol?)
#:kws (listof Keyword?)
#:filters LFilterSet?
#:object LatentObject?)
arr?)
(make-arr dom (-result rng filters obj) rest drest (sort #:key Keyword-kw kws keyword<?)))
(make-arr dom (-values (list (-result rng filters obj))) rest drest (sort #:key Keyword-kw kws keyword<?)))
(define-syntax ->*
(syntax-rules (:)