From bad92f348b175d3e265c398619b36c915ef24310 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 9 Jun 2010 14:26:26 -0400 Subject: [PATCH] Avoid building unnecessary intermediate lists. --- collects/racket/contract/private/misc.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/racket/contract/private/misc.rkt b/collects/racket/contract/private/misc.rkt index 9ecc2372f0..2590c3a9cd 100644 --- a/collects/racket/contract/private/misc.rkt +++ b/collects/racket/contract/private/misc.rkt @@ -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))