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

svn: r4216
2006-09-01 15:51:52 +00:00 · 2006-09-01 15:51:52 +00:00 · dd4c63ab07
commit dd4c63ab07
parent a39db76867
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/contract-ds-helpers.ss
+++ b/collects/mzlib/private/contract-ds-helpers.ss
@ -45,7 +45,7 @@ which are then called when the contract's fields are explored
             ;; makes the procedure "big enough" so
             ;; that inlining doesn't consider it.
             (λ (e)
-               (let loop ([i 16])
+               (let loop ([i 30])
                 (cond
                   [(zero? i) e]
                   [else #`(values #,(loop (- i 1)))])))])