From 2435f6fe061d0b539d98ba6e3f5bb02a1dae162b Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 6 May 2010 11:59:45 -0400 Subject: [PATCH] Changed the common benchmark wrapper to use the racket language and to print return values. --- collects/tests/racket/benchmarks/common/wrap.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/wrap.rkt b/collects/tests/racket/benchmarks/common/wrap.rkt index 71f0530c99..8d2c768c5c 100644 --- a/collects/tests/racket/benchmarks/common/wrap.rkt +++ b/collects/tests/racket/benchmarks/common/wrap.rkt @@ -1,8 +1,8 @@ -(module wrap mzscheme - (provide (rename module-begin #%module-begin)) +(module wrap racket + (provide (rename-out (module-begin #%module-begin))) (require (lib "include.ss")) (define-syntax (module-begin stx) (let ([name (syntax-property stx 'enclosing-module-name)]) - #`(#%plain-module-begin + #`(#%module-begin (include #,(format "~a.sch" name))))))