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

Fixed a typo in the shootout harness.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-18 20:30:15 -04:00
parent 1e2c50ec24
commit f16732adbe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/benchmarks/shootout/run.rkt
View File

@ -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")