racket/collects/tests/mzscheme/benchmarks/mz/expand-class.scm
Sam Tobin-Hochstadt 7a77367040 Fix drdr props.
Fix the ttt tests (which I don't think have been run in years).
Fix the lists shootout benchmark to use mpairs.
Fix the regexmatch shootout benchmark, although it still needs input.
Require a current version of ssax, so that it compiles.
Fix finding the collections path.

svn: r16654
2009-11-10 15:41:32 +00:00

10 lines
321 B
Scheme

(let ([dir (build-path (collection-path "scheme")
"private")])
(with-input-from-file (build-path dir "class-internal.ss")
(lambda ()
(parameterize ([current-load-relative-directory dir]
[read-accept-reader #t])
(let ([s (read-syntax)])
(time (compile s)))))))