From f939f616f523a855f0ef766c39a8b39cf765d8d0 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 18 Jun 2008 23:48:31 -0400 Subject: [PATCH] Lift out the recursive call, since that'll be shared across all substitutions. original commit: f68efe9e317a53de87a4acb7e15875f4364044b7 --- collects/typed-scheme/private/type-utils.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/type-utils.ss b/collects/typed-scheme/private/type-utils.ss index dcc02ed9..e32f735f 100644 --- a/collects/typed-scheme/private/type-utils.ss +++ b/collects/typed-scheme/private/type-utils.ss @@ -63,7 +63,8 @@ (make-arr (append (map sb dom) ;; We need to recur first, just to expand out any dotted usages of this. - (map (lambda (img) (substitute img name (sb (car drest)))) images)) + (let ([expanded (sb (car drest))]) + (map (lambda (img) (substitute img name expanded)) images))) (sb rng) #f #f