Skip to content

Commit

Permalink
Fix 1 occurrence of read-line-any
Browse files Browse the repository at this point in the history
Specify a line mode of `'any` with `read-line` to avoid differences between Windows and other platforms.
  • Loading branch information
resyntax-ci[bot] authored and sorawee committed Feb 9, 2025
1 parent 7246cc0 commit 841c041
Showing 1 changed file with 1 addition and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -938,7 +938,7 @@
(call-with-input-file filename
(λ (port)
(let loop ([n 0])
(define l (read-line port))
(define l (read-line port 'any))
(if (eof-object? l)
n
(loop (+ n 1)))))
Expand Down

0 comments on commit 841c041

Please sign in to comment.