From c66d1238d0a4d940e981bae0c0395edc6b4d4af2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 13 Aug 2006 15:29:42 +0000 Subject: [PATCH] add mzscheme-tl svn: r4061 --- .../tests/mzscheme/benchmarks/common/auto.ss | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/common/auto.ss b/collects/tests/mzscheme/benchmarks/common/auto.ss index 2881ac1200..2cbcecbc47 100644 --- a/collects/tests/mzscheme/benchmarks/common/auto.ss +++ b/collects/tests/mzscheme/benchmarks/common/auto.ss @@ -6,7 +6,8 @@ exec mzscheme -qu "$0" ${1+"$@"} (module auto mzscheme (require (lib "process.ss") (lib "cmdline.ss") - (lib "list.ss")) + (lib "list.ss") + (lib "compile.ss")) (define (bytes->number b) (string->number (bytes->string/latin-1 b))) @@ -22,6 +23,14 @@ exec mzscheme -qu "$0" ${1+"$@"} (parameterize ([current-namespace (make-namespace)]) (load (format "~a.ss" bm)))) + (define (mk-mzscheme-tl bm) + ;; To get compilation time: + (parameterize ([current-namespace (make-namespace)]) + (namespace-require 'mzscheme) + (namespace-transformer-require 'mzscheme) + (eval '(define null #f)) ; for dynamic.sch + (compile-file (format "~a.sch" bm)))) + (define (mk-larceny bm) (parameterize ([current-input-port (open-input-string (format "(compile-file \"~a.sch\")\n" @@ -119,6 +128,12 @@ exec mzscheme -qu "$0" ${1+"$@"} (system (format "mzscheme -jqu ~a.ss" bm))) extract-mzscheme-times '()) + (make-impl 'mzscheme3m-tl + mk-mzscheme-tl + (lambda (bm) + (system (format "mzscheme3m -qr compiled/~a.zo" bm))) + extract-mzscheme-times + '(nucleic2)) (make-impl 'chicken (run-mk "mk-chicken.ss") run-exe @@ -140,7 +155,7 @@ exec mzscheme -qu "$0" ${1+"$@"} extract-larceny-times '()))) - (define obsolte-impls '(mzscheme mzscheme-j mzc)) + (define obsolte-impls '(mzscheme mzscheme-j mzscheme3m-tl mzc)) (define benchmarks '(conform