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

Avoid building unnecessary intermediate lists.

Browse Source
This commit is contained in:
Stevie Strickland 2010-06-09 14:26:26 -04:00
parent 99bb46d225
commit bad92f348b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/contract/private/misc.rkt
View File

@ -764,9 +764,9 @@
(define vector-immutableof
(*-immutableof immutable-vector?
(λ (f v) (for-each f (vector->list v)))
(λ (f v) (apply vector-immutable (map f (vector->list v))))
(λ (f v) (andmap f (vector->list v)))
(λ (f v) (for ([e (in-vector v)]) (f e)))
(λ (f v) (apply vector-immutable (for/list ([e (in-vector v)]) (f e))))
(λ (f v) (for/and ([e (in-vector v)]) (f e)))
immutable-vector
vector-immutableof))