tar: Cater for Guix bootstrap-guile's UTF-8 default.
* gash/ustar.scm (read-ustar-file): Cater for Guix bootstrap-guile's UTF-8 default.
This commit is contained in:
parent
478d75bba7
commit
f2fb1bedc9
|
@ -467,6 +467,7 @@
|
||||||
(dir (dirname file-name))
|
(dir (dirname file-name))
|
||||||
(extract? (and extract? (not (string-null? file-name))))
|
(extract? (and extract? (not (string-null? file-name))))
|
||||||
(thunk (lambda _
|
(thunk (lambda _
|
||||||
|
(set-port-encoding! (current-output-port) "ISO-8859-1") ; bootstrap-guile uses default UTF-8
|
||||||
(let loop ((read 0))
|
(let loop ((read 0))
|
||||||
(and (< read size)
|
(and (< read size)
|
||||||
(let ((record (read-ustar-record port)))
|
(let ((record (read-ustar-record port)))
|
||||||
|
|
Loading…
Reference in New Issue