From f16732adbe9c9826e8b9f23d422421e0465a7315 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 18 Jun 2010 20:30:15 -0400 Subject: [PATCH] Fixed a typo in the shootout harness. --- collects/tests/racket/benchmarks/shootout/run.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/benchmarks/shootout/run.rkt b/collects/tests/racket/benchmarks/shootout/run.rkt index 82fec237b4..70beb9430a 100644 --- a/collects/tests/racket/benchmarks/shootout/run.rkt +++ b/collects/tests/racket/benchmarks/shootout/run.rkt @@ -87,7 +87,7 @@ f)) (define (mk-fasta-input n) - (let ([f (build-path (find-system-path 'temp-dir) (string-append "fasta-" (number->string suffix)))]) + (let ([f (build-path (find-system-path 'temp-dir) (string-append "fasta-" (number->string n)))]) (unless (file-exists? f) (printf "Building FASTA ~a output for input: ~a\n" n f) (with-output-to-file f @@ -98,7 +98,7 @@ f)) (define (mk-sumcol-input n) - (let ([f (build-path (find-system-path 'temp-dir) (string-append "sumcol-" (number->string suffix)))]) + (let ([f (build-path (find-system-path 'temp-dir) (string-append "sumcol-" (number->string n)))]) (unless (file-exists? f) (printf "Building sumcol ~a input: ~a\n" n f) (let ([c (with-input-from-file (build-path (collection-path "tests")