From 6ec1f4caa34d350d9f8b90b71192c1d32807d934 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 24 May 2015 17:29:14 +0200
Subject: [PATCH] ui: Make 'symlink' replacement more future-proof.
* guix/ui.scm (symlink): Change next-to-last 'throw' argument to explicitly
ignore ARGS; change last argument to (list errno).
---
guix/ui.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 372733c2430..2b62e7abc85 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -243,8 +243,8 @@ (define symlink
;; information is missing as of Guile 2.0.11, making the exception
;; uninformative.)
(apply throw key proc "~A: ~S"
- (append args (list link))
- errno))))))
+ (list (strerror (car errno)) link)
+ (list errno)))))))
(set! copy-file
;; Note: here we use 'set!', not #:replace, because UIs typically use
--
GitLab