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

fix benchmark driver for running an old version

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-28 14:21:52 -06:00
parent 20e95f8d8e
commit 67cbd52e24
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/racket/benchmarks/common/auto.rkt
View File

@ -47,6 +47,9 @@ exec racket -qu "$0" ${1+"$@"}
(compile-file name (compile-file name
(build-path "compiled" (path-add-suffix name #".zo")))))) (build-path "compiled" (path-add-suffix name #".zo"))))))
(define (mk-mz-old bm)
(system (format "mz-old -l- raco make ~a.rkt" bm)))
(define (clean-up-zo bm) (define (clean-up-zo bm)
(when (directory-exists? "compiled") (when (directory-exists? "compiled")
(delete-directory/files "compiled"))) (delete-directory/files "compiled")))
@ -362,7 +365,7 @@ exec racket -qu "$0" ${1+"$@"}
mutable-pair-progs) mutable-pair-progs)
(make-impl 'mz-old (make-impl 'mz-old
void void
mk-racket mk-mz-old
(lambda (bm) (lambda (bm)
(system (format "mz-old -u ~a.rkt" bm))) (system (format "mz-old -u ~a.rkt" bm)))
extract-racket-times extract-racket-times