Use bytes consistently in regexmatch.

Inconsistency found by Tobias Pape, see GH issue #792.
2014-10-08 11:58:42 -04:00 · 2014-10-08 11:58:42 -04:00 · 290329e5fa
commit 290329e5fa
parent f0bd4e6d71
1 changed files with 1 additions and 1 deletions
--- a/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/regexmatch.rkt
+++ b/pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/regexmatch.rkt
@ -40,7 +40,7 @@
      (cond ((eof-object? line) #f)
            (else
             (set! phonelines (cons line phonelines))
-             (loop (read-line)))))
+             (loop (read-bytes-line)))))
    (set! phonelines (reverse phonelines))
    (do ([n (string->number n) (sub1 n)])
        ((negative? n))