From 70fa8fb2c4c4952f341d59809aa1909dfcf20964 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 11 Nov 2009 18:30:18 +0000 Subject: [PATCH] Fix run to dynamic-require relative to the shootout directory. svn: r16696 --- collects/tests/mzscheme/benchmarks/shootout/run.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/benchmarks/shootout/run.ss b/collects/tests/mzscheme/benchmarks/shootout/run.ss index 29365c64c7..2c802ec9d1 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/run.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/run.ss @@ -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))])