Handling cr in binary lines.

This commit is contained in:
Alex Shinn 2014-04-04 22:48:14 +09:00
parent 250ae4f02e
commit d15f00a58a

View file

@ -232,6 +232,9 @@
res)))
((eqv? ch 10)
(get-output-bytevector out))
((and (eqv? ch 13) (eqv? (peek-u8 in) 10))
(read-u8 in)
(get-output-bytevector out))
(else
(write-u8 ch out)
(lp)))))))