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

upped the number of calls to 'values' in order to continue to defeat mz's optimizations

Browse Source 
svn: r4216
This commit is contained in:
Robby Findler 2006-09-01 15:51:52 +00:00
parent a39db76867
commit dd4c63ab07
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/contract-ds-helpers.ss
View File

@ -45,7 +45,7 @@ which are then called when the contract's fields are explored
;; makes the procedure "big enough" so ;; makes the procedure "big enough" so
;; that inlining doesn't consider it. ;; that inlining doesn't consider it.
(λ (e) (λ (e)
(let loop ([i 16]) (let loop ([i 30])
(cond (cond
[(zero? i) e] [(zero? i) e]
[else #`(values #,(loop (- i 1)))])))]) [else #`(values #,(loop (- i 1)))])))])