From 10a3140ff1e79c33073054b6380015e875b8f996 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 26 Oct 2013 16:45:32 -0400 Subject: [PATCH] Fix benchmarks to not use `collection-path`. --- .../tests/racket/benchmarks/shootout/run.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/run.rkt b/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/run.rkt index 38135448d3..5e948d722e 100644 --- a/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/run.rkt +++ b/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/run.rkt @@ -95,16 +95,14 @@ (dynamic-require "fasta.rkt" #f))))) f)) + (define-runtime-path sumcol-input "sumcol-input.txt") + (define/kw (mk-sumcol-input n #:optional moments?) (let ([f (build-path (find-system-path 'temp-dir) (string-append (if moments? "moments-" "sumcol-") (number->string n)))]) (unless (file-exists? f) (printf "Building ~a ~a input: ~a\n" (if moments? "moments" "sumcol") n f) - (let ([c (with-input-from-file (build-path (collection-path "tests") - "racket" - "benchmarks" - "shootout" - "sumcol-input.txt") + (let ([c (with-input-from-file sumcol-input (lambda () (if moments? (apply string-append ; like sumcol, but with floats