fix benchmark on empty input

2012-11-15 05:06:07 -07:00 · 2012-11-15 05:06:07 -07:00 · 719ada1baa
commit 719ada1baa
parent 6ee62ec5ad
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/racket/benchmarks/shootout/k-nucleotide.rkt
+++ b/collects/tests/racket/benchmarks/shootout/k-nucleotide.rkt
@ -25,7 +25,7 @@
              (real->decimal-string (* 100 (/ (cdr a) total)) 3)))))

 (define (write-one-freq table key)
-  (let ([cnt (hash-ref table key 0)])
+  (let ([cnt (hash-ref table key (box 0))])
    (printf "~a\t~a\n" (unbox cnt) key)))

 (define dna