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.
2018-11-04 16:19:41 +01:00 · 2018-11-04 16:19:41 +01:00 · f2fb1bedc9
parent 478d75bba7
commit f2fb1bedc9
1 changed files with 1 additions and 0 deletions
--- a/gash/ustar.scm
+++ b/gash/ustar.scm
@ -467,6 +467,7 @@
         (dir (dirname file-name))
         (extract? (and extract? (not (string-null? file-name))))
         (thunk (lambda _
+                  (set-port-encoding! (current-output-port) "ISO-8859-1") ; bootstrap-guile uses default UTF-8
                  (let loop ((read 0))
                    (and (< read size)
                         (let ((record (read-ustar-record port)))