aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-09-10 23:33:30 +0200
committerLudovic Courtès <ludo@gnu.org>2014-09-10 23:33:30 +0200
commitc4634dfa260fd927a777f7d98f2425c32e20848a (patch)
treecdcc83b1db9cba4ca4e7f81928c8c713ac55d66d
parentf2817d4303bb21059a6b7980b8aa5b4671d2748f (diff)
downloadguix-c4634dfa260fd927a777f7d98f2425c32e20848a.tar.gz
guix-c4634dfa260fd927a777f7d98f2425c32e20848a.zip
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.
-rw-r--r--guix/profiles.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 9dc9ab43b9..aa88b849e1 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -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)
"->")))))