aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-18 00:01:03 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-18 00:14:07 +0200
commit3bacc655c5fd988f0199ef259adcb4fb3754042e (patch)
tree4ef9f49c9cea62e301e0559013df24978a028fbe
parent01049bb0c1f3f69afb8d1782f99ca5c0adaed946 (diff)
downloadpatches-3bacc655c5fd988f0199ef259adcb4fb3754042e.tar
patches-3bacc655c5fd988f0199ef259adcb4fb3754042e.tar.gz
syscalls: 'opendir*' error message shows the file name.
* guix/build/syscalls.scm (opendir*): Add NAME to the 'system-error' message.
-rw-r--r--guix/build/syscalls.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 624941253a..9c082b4352 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -870,8 +870,7 @@ system to PUT-OLD."
(proc (string->pointer name))))
(if (null-pointer? ptr)
(throw 'system-error "opendir*"
- "opendir*: ~A"
- (list (strerror err))
+ "~A: ~A" (list name (strerror err))
(list err))
ptr)))))