diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-24 17:29:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-24 17:29:14 +0200 |
| commit | 6ec1f4caa34d350d9f8b90b71192c1d32807d934 (patch) | |
| tree | 84c720536a4b1b760d579bd59347f75736dbe2f0 | |
| parent | 9b14107f2d686a5554bc174856f345d8daaff22d (diff) | |
| download | guix-6ec1f4caa34d350d9f8b90b71192c1d32807d934.tar.gz guix-6ec1f4caa34d350d9f8b90b71192c1d32807d934.zip | |
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).
| -rw-r--r-- | guix/ui.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 372733c243..2b62e7abc8 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -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 |