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