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

make benchmark driver work right with racketcs

Browse Source
This commit is contained in:
Matthew Flatt 2018-07-28 09:37:47 -06:00
parent 759c71e158
commit fa93b55108
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/racket-benchmarks/tests/racket/benchmarks/common/auto.rkt
View File

@ -40,17 +40,19 @@ exec racket -qu "$0" ${1+"$@"}
(delete-file (format "~a.o1" bm)))
(define (mk-racket bm)
(unless (directory-exists? "compiled")
(make-directory "compiled"))
(define compiled (car (use-compiled-file-paths)))
(unless (directory-exists? compiled)
(make-directory* compiled))
(parameterize ([current-namespace (make-base-namespace)]
[read-accept-reader #t])
(let ([name (format "~a.rkt" bm)])
(compile-file name
"compiled/current-bm_rkt.zo"))))
(build-path compiled "current-bm_rkt.zo")))))
(define (mk-errortrace bm)
(unless (directory-exists? "compiled")
(make-directory "compiled"))
(define compiled (car (use-compiled-file-paths)))
(unless (directory-exists? compiled)
(make-directory* compiled))
(parameterize ([current-namespace (make-base-namespace)]
[read-accept-reader #t]
[current-compile (current-compile)]
@ -59,7 +61,7 @@ exec racket -qu "$0" ${1+"$@"}
(dynamic-require 'errortrace #f)
(let ([name (format "~a.rkt" bm)])
(compile-file name
"compiled/current-bm_rkt.zo"))))
(build-path compiled "current-bm_rkt.zo")))))
(define (compiled-path bm)
"current-bm.rkt")
@ -68,8 +70,9 @@ exec racket -qu "$0" ${1+"$@"}
(system (format "mz-old -l- raco make ~a.rkt" bm)))
(define (clean-up-zo bm)
(when (file-exists? "compiled/current-bm_rkt.zo")
(delete-file "compiled/current-bm_rkt.zo")))
(define compiled (car (use-compiled-file-paths)))
(when (file-exists? (build-path compiled "current-bm_rkt.zo"))
(delete-file (build-path compiled "current-bm_rkt.zo"))))
(define (mk-typed-racket-non-optimizing bm)
(unless (directory-exists? "typed/compiled")