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

Copy properties when optimizing bodies of lambda/define-values.

Browse Source 
Closes PR 11860.
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-18 15:40:31 -04:00
parent 187dc63493
commit 981616d504
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/optimizer/optimizer.rkt
View File

@ -37,7 +37,9 @@
;; boring cases, just recur down ;; boring cases, just recur down
(pattern ((~and op (~or (~literal #%plain-lambda) (~literal define-values))) (pattern ((~and op (~or (~literal #%plain-lambda) (~literal define-values)))
formals e:expr ...) formals e:expr ...)
#:with opt #`(op formals #,@(syntax-map (optimize) #'(e ...)))) #:with opt (syntax-track-origin (quasisyntax/loc this-syntax (op formals #,@(syntax-map (optimize) #'(e ...))))
this-syntax
#'op))
(pattern (case-lambda [formals e:expr ...] ...) (pattern (case-lambda [formals e:expr ...] ...)
;; optimize all the bodies ;; optimize all the bodies
#:with (opt-parts ...) #:with (opt-parts ...)