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

Fix arity raising for letrec.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-08-14 20:38:28 -04:00
parent 63b5747018
commit 2a80582ed9
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-scheme/optimizer/unboxed-let.rkt
View File

@ -101,14 +101,15 @@
(doms doms))
(cond [(null? params)
;; done. can we unbox anything?
(when (> (length unboxed) 0)
(and (> (length unboxed) 0)
;; if so, add to the table of functions with
;; unboxed params, so we can modify its call
;; sites, its body and its header)
(log-optimization
;; sites, its body and its header
(begin (log-optimization
"unboxed function -> table"
arity-raising-opt-msg
fun-name)
#t)
(dict-set! unboxed-funs-table fun-name
(list (reverse unboxed)
(reverse boxed))))]