mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
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:
parent
9b14107f2d
commit
6ec1f4caa3
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue