From c66d1238d0a4d940e981bae0c0395edc6b4d4af2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
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