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).
This commit is contained in:
Ludovic Courtès 2015-05-24 17:29:14 +02:00
parent 9b14107f2d
commit 6ec1f4caa3

View file

@ -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