Skip to content
Snippets Groups Projects
Commit 6ec1f4ca authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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).
parent 9b14107f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment