rktio: fix output of newlines in text files in Windows
This commit is contained in:
parent
4cf538f349
commit
24c6b2450c
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user