rktio: fix output of newlines in text files in Windows

This commit is contained in:
Gustavo Massaccesi 2021-04-08 09:37:55 -03:00 committed by Matthew Flatt
parent 4cf538f349
commit 24c6b2450c
2 changed files with 2 additions and 2 deletions

View File

@ -7,7 +7,7 @@ Core error support must be provided as a more primitive layer,
including the exception structures and error functions that do not including the exception structures and error functions that do not
involve formatting, such as `raise-argument-error`. The more primitive involve formatting, such as `raise-argument-error`. The more primitive
layer should provide a `error-value->string-handler` paramemeter, but layer should provide a `error-value->string-handler` paramemeter, but
this layer sets that parameter (so the primitive error function slike this layer sets that parameter (so the primitive error functions like
`raise-argument-error` won't work right until this layer is loaded). `raise-argument-error` won't work right until this layer is loaded).
Thread and event support is similarly provided as a more primitive Thread and event support is similarly provided as a more primitive

View File

@ -58,7 +58,7 @@
(check who path-string? path) (check who path-string? path)
(define (mode->flags mode) (define (mode->flags mode)
(case mode (case mode
[(test) RKTIO_OPEN_TEXT] [(text) RKTIO_OPEN_TEXT]
[(truncate truncate/replace) (+ RKTIO_OPEN_TRUNCATE [(truncate truncate/replace) (+ RKTIO_OPEN_TRUNCATE
RKTIO_OPEN_CAN_EXIST)] RKTIO_OPEN_CAN_EXIST)]
[(must-truncate) (+ RKTIO_OPEN_TRUNCATE [(must-truncate) (+ RKTIO_OPEN_TRUNCATE