diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-09-10 23:33:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-09-10 23:33:30 +0200 |
| commit | c4634dfa260fd927a777f7d98f2425c32e20848a (patch) | |
| tree | cdcc83b1db9cba4ca4e7f81928c8c713ac55d66d | |
| parent | f2817d4303bb21059a6b7980b8aa5b4671d2748f (diff) | |
| download | guix-c4634dfa260fd927a777f7d98f2425c32e20848a.tar guix-c4634dfa260fd927a777f7d98f2425c32e20848a.tar.gz | |
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.scm | 8 |
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) "->"))))) |