Fixed a bug in the shootout harness.

This commit is contained in:
Vincent St-Amour 2010-06-21 17:52:05 -04:00
parent 379d9a2125
commit 4f501726fb

View File

@ -93,7 +93,7 @@
(printf "Building FASTA ~a output for input: ~a\n" n f)
(with-output-to-file f
(lambda ()
(parameterize ([current-command-line-arguments (vector n)]
(parameterize ([current-command-line-arguments (vector (number->string n))]
[current-load-relative-directory here])
(dynamic-require "fasta.rkt" #f)))))
f))