~ruther/guix-local: derivations: Set input port to UTF-8 in `read-derivation'.

df7bbd381352d3241458488d028ba757e206674d — Ludovic Courtès 13 years ago 58ddf10

derivations: Set input port to UTF-8 in `read-derivation'.

* guix/derivations.scm (read-derivation): Set DRV-PORT's encoding to
  UTF-8.

patch browse .tar.gz

1 files changed, 4 insertions(+), 0 deletions(-)

M guix/derivations.scm

M guix/derivations.scm => guix/derivations.scm +4 -0

@@ 171,6 171,10 @@ available in STORE, recursively."
                 '()
                 x))
 
+  ;; The contents of a derivation are typically ASCII, but choosing
+  ;; UTF-8 allows us to take the fast path for Guile's `scm_getc'.
+  (set-port-encoding! drv-port "UTF-8")
+
   (let loop ((exp    (read drv-port))
              (result '()))
     (match exp