diff options
author | Jonas Hahnfeld <hahnjo@hahnjo.de> | 2023-10-24 19:24:22 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-01-29 14:44:58 +0100 |
commit | fb1f5e28b1a575247fd16184b1c83b8838b09716 (patch) | |
tree | 2b8f6e243040382a93b401602aa01736c1ec0427 | |
parent | 5223c71d0dd89394b7b0cbe6f9d244ec12f0f3f3 (diff) |
Match on correct argument in make-custom-port
* module/ice-9/custom-ports.scm (make-custom-port): Match on correct
argument for conversion strategy.
* NEWS: Update.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r-- | NEWS | 1 | ||||
-rw-r--r-- | module/ice-9/custom-ports.scm | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -43,6 +43,7 @@ the compiler reports it as "possibly unused". (<https://bugs.gnu.org/62690>) ** 'ftw' now correctly deals with directory permissions (<https://bugs.gnu.org/55344>) +** 'make-custom-port' now honors its #:conversion-strategy argument ** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption (<https://bugs.gnu.org/56413>) diff --git a/module/ice-9/custom-ports.scm b/module/ice-9/custom-ports.scm index 07b6ba28a..6010fd94f 100644 --- a/module/ice-9/custom-ports.scm +++ b/module/ice-9/custom-ports.scm @@ -146,7 +146,7 @@ methods." ((? symbol?) (string->symbol (string-upcase (symbol->string encoding)))))) (define (canonicalize-conversion-strategy conversion-strategy) - (match encoding + (match conversion-strategy ('escape 'escape) ('substitute 'substitute) (_ 'error))) |