From 24c6b2450cdfa170c1b0848d45298e086db5c0ab Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Thu, 8 Apr 2021 09:37:55 -0300 Subject: [PATCH] rktio: fix output of newlines in text files in Windows --- racket/src/io/README.txt | 2 +- racket/src/io/port/file-port.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/io/README.txt b/racket/src/io/README.txt index 7d60a47585..331aad78a9 100644 --- a/racket/src/io/README.txt +++ b/racket/src/io/README.txt @@ -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 involve formatting, such as `raise-argument-error`. The more primitive 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). Thread and event support is similarly provided as a more primitive diff --git a/racket/src/io/port/file-port.rkt b/racket/src/io/port/file-port.rkt index 8d7678aabc..d3b02ea862 100644 --- a/racket/src/io/port/file-port.rkt +++ b/racket/src/io/port/file-port.rkt @@ -58,7 +58,7 @@ (check who path-string? path) (define (mode->flags mode) (case mode - [(test) RKTIO_OPEN_TEXT] + [(text) RKTIO_OPEN_TEXT] [(truncate truncate/replace) (+ RKTIO_OPEN_TRUNCATE RKTIO_OPEN_CAN_EXIST)] [(must-truncate) (+ RKTIO_OPEN_TRUNCATE