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