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

Changed the optimizer's test harness for optimization on by default.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-10-06 11:11:47 -04:00
parent 8baa1682af
commit abcbce129b
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/tests/typed-scheme/optimizer/run.rkt
View File

@ -29,7 +29,7 @@
[m (or (regexp-match-positions prog-rx prog) [m (or (regexp-match-positions prog-rx prog)
(error 'evaluator "bad program contents in ~e" file))] (error 'evaluator "bad program contents in ~e" file))]
[prog (string-append (substring prog (caadr m) (cdadr m)) [prog (string-append (substring prog (caadr m) (cdadr m))
(if optimize? "\n#:optimize\n" "\n") (if (not optimize?) "\n#:no-optimize\n" "\n")
(substring prog (cdar m)))] (substring prog (cdar m)))]
[evaluator (make-module-evaluator prog)] [evaluator (make-module-evaluator prog)]
[out (get-output evaluator)]) [out (get-output evaluator)])