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

Lift out the recursive call, since that'll be shared across all substitutions.

Browse Source
This commit is contained in:
Stevie Strickland 2008-06-18 23:48:31 -04:00
parent 51ec643172
commit f68efe9e31
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/private/type-utils.ss
View File

@ -63,7 +63,8 @@
(make-arr (append (make-arr (append
(map sb dom) (map sb dom)
;; We need to recur first, just to expand out any dotted usages of this. ;; 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) (sb rng)
#f #f
#f #f