~ruther/guix-local: ui: Make 'symlink' replacement more future-proof.

6ec1f4caa34d350d9f8b90b71192c1d32807d934 — Ludovic Courtès 10 years ago 9b14107

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).

patch browse .tar.gz

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

M guix/ui.scm

M guix/ui.scm => guix/ui.scm +2 -2

@@ 243,8 243,8 @@ General help using GNU software: <http://www.gnu.org/gethelp/>"))
           ;; 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