suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

io: avoid atomic-mode crash when locale converter is not available

Browse Source 
Related to #3353
This commit is contained in:
Matthew Flatt 2020-08-15 16:10:22 -06:00
parent 91abd020d1
commit 61f701dcff
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
racket/src/io/locale/cache.rkt
View File

@ -42,18 +42,19 @@
c))))
(define (cache-save! c enc get update!)
(atomically
(unless (equal? enc (cache-enc local-cache))
(cache-clear! cache-to set-cache-to!)
(cache-clear! cache-to2 set-cache-to2!)
(cache-clear! cache-from set-cache-from!)
(set-cache-enc! local-cache enc))
(cond
[(get local-cache)
(bytes-close-converter c)]
[else
(bytes-reset-converter c) ; must be in atomic mode
(update! local-cache c)])))
(when c
(atomically
(unless (equal? enc (cache-enc local-cache))
(cache-clear! cache-to set-cache-to!)
(cache-clear! cache-to2 set-cache-to2!)
(cache-clear! cache-from set-cache-from!)
(set-cache-enc! local-cache enc))
(cond
[(get local-cache)
(bytes-close-converter c)]
[else
(bytes-reset-converter c) ; must be in atomic mode
(update! local-cache c)]))))
;; ----------------------------------------