suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed the common benchmark wrapper to use the racket language and to

Browse Source 
print return values.
This commit is contained in:
Vincent St-Amour 2010-05-06 11:59:45 -04:00
parent 11d8dac0bf
commit 2435f6fe06
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/racket/benchmarks/common/wrap.rkt
View File

@ -1,8 +1,8 @@
(module wrap mzscheme (module wrap racket
(provide (rename module-begin #%module-begin)) (provide (rename-out (module-begin #%module-begin)))
(require (lib "include.ss")) (require (lib "include.ss"))
(define-syntax (module-begin stx) (define-syntax (module-begin stx)
(let ([name (syntax-property stx 'enclosing-module-name)]) (let ([name (syntax-property stx 'enclosing-module-name)])
#`(#%plain-module-begin #`(#%module-begin
(include #,(format "~a.sch" name)))))) (include #,(format "~a.sch" name))))))