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

Improve type of count and vector-count.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-22 18:07:50 -04:00
parent e6d85175f3
commit 601e693b01
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/private/base-env.rkt
View File

@ -647,7 +647,7 @@
(-lst a)) (-lst a))
((-lst b) b) ((-lst b) b)
. ->... . . ->... .
-Integer))] -Nat))]
[filter-map (-polydots (c a b) [filter-map (-polydots (c a b)
((list ((list
((list a) (b b) . ->... . (-opt c)) ((list a) (b b) . ->... . (-opt c))
@ -752,7 +752,7 @@
(-vec a)) (-vec a))
((-vec b) b) ((-vec b) b)
. ->... . . ->... .
-Integer))] -Nat))]
[vector-filter (-poly (a b) (cl->* [vector-filter (-poly (a b) (cl->*
((make-pred-ty (list a) Univ b) ((make-pred-ty (list a) Univ b)
(-vec a) (-vec a)