~ruther/guix-local: profiles: Adjust for compatibility with Guile 2.0.5.

c4634dfa260fd927a777f7d98f2425c32e20848a — Ludovic Courtès 11 years ago f2817d4

profiles: Adjust for compatibility with Guile 2.0.5.

Reported by Andreas Enge <andreas@enge.fr>.

* guix/profiles.scm (right-arrow): Use 'set-port-conversion-strategy!'
  instead of '%default-port-conversion-strategy'.  The latter is only
  available in Guile 2.0.5.

patch browse .tar.gz

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

M guix/profiles.scm

M guix/profiles.scm => guix/profiles.scm +4 -4

@@ 321,10 321,10 @@ replacement if PORT is not Unicode-capable."
     (let ((arrow "→"))
       (catch 'encoding-error
         (lambda ()
-          (with-fluids ((%default-port-conversion-strategy 'error))
-            (with-output-to-string
-              (lambda ()
-                (display arrow)))))
+          (call-with-output-string
+            (lambda (port)
+              (set-port-conversion-strategy! port 'error)
+              (display arrow port))))
         (lambda (key . args)
           "->")))))