ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: Make 'symlink' replacement more future-proof.

Browse source 
* 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
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/ui.scm
View file

@ -243,8 +243,8 @@ (define symlink
;; information is missing as of Guile 2.0.11, making the exception ;; information is missing as of Guile 2.0.11, making the exception
;; uninformative.) ;; uninformative.)
(apply throw key proc "~A: ~S" (apply throw key proc "~A: ~S"
(append args (list link)) (list (strerror (car errno)) link)
errno)))))) (list errno)))))))
(set! copy-file (set! copy-file
;; Note: here we use 'set!', not #:replace, because UIs typically use ;; Note: here we use 'set!', not #:replace, because UIs typically use