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

Fix run to dynamic-require relative to the shootout directory.

Browse Source 
svn: r16696
This commit is contained in:
Sam Tobin-Hochstadt 2009-11-11 18:30:18 +00:00
parent 8845e870cb
commit 70fa8fb2c4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/mzscheme/benchmarks/shootout/run.ss
View File

@ -1,4 +1,5 @@
(module run mzscheme
(require (only scheme/runtime-path define-runtime-path))
(define input-map
`(
("ackermann.ss" "11")
@ -41,8 +42,11 @@
("wordfreq.ss")
))
(define-runtime-path here ".")
(define (dynreq f)
(dynamic-require f #f))
(parameterize ([current-load-relative-directory here])
(dynamic-require f #f)))
(define (mk-fasta n suffix)
(let ([f (build-path (find-system-path 'temp-dir) (string-append "fasta-" suffix))])