Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handling cr in binary lines.

Browse source
This commit is contained in:
Alex Shinn 2014-04-04 22:48:14 +09:00
parent 250ae4f02e
commit d15f00a58a
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/mime.scm
View file

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