Fixed the sumcol benchmark to obey the new type for read-line.

2010-06-15 15:44:40 -04:00 · 2010-06-15 15:44:40 -04:00 · e0b880d1ea
commit e0b880d1ea
parent 72ec18cc68
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/racket/benchmarks/shootout/typed/sumcol.rktl
+++ b/collects/tests/racket/benchmarks/shootout/typed/sumcol.rktl
@ -1,4 +1,4 @@
 (for/fold: : Number
           ([acc : Number 0])
-    ([n : String (in-lines)])
+    ([n : (U String EOF) (in-lines)])
  (+ acc (assert (string->number n))))