mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Match on correct argument in make-custom-port

Browse source 
* 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>
This commit is contained in:
Jonas Hahnfeld 2023-10-24 19:24:22 +02:00 • committed by Ludovic Courtès
parent 5223c71d0d
commit fb1f5e28b1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS
View file

@ -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>)

2
module/ice-9/custom-ports.scm
View file

@ -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)))