From 67cbd52e24c6be914a5e335dbb4e6b5a7f2c2eb6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 28 Jun 2012 14:21:52 -0600
Subject: [PATCH] fix benchmark driver for running an old version

---
 collects/tests/racket/benchmarks/common/auto.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt
index 9899401f42..ef12ae072e 100755
--- a/collects/tests/racket/benchmarks/common/auto.rkt
+++ b/collects/tests/racket/benchmarks/common/auto.rkt
@@ -47,6 +47,9 @@ exec racket -qu "$0" ${1+"$@"}
         (compile-file name
                       (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)
     (when (directory-exists? "compiled")
       (delete-directory/files "compiled")))
@@ -362,7 +365,7 @@ exec racket -qu "$0" ${1+"$@"}
                 mutable-pair-progs)
      (make-impl 'mz-old
                 void
-                mk-racket
+                mk-mz-old
                 (lambda (bm)
                   (system (format "mz-old -u ~a.rkt" bm)))
                 extract-racket-times