From 3bacc655c5fd988f0199ef259adcb4fb3754042e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 18 Jun 2017 00:01:03 +0200
Subject: [PATCH] syscalls: 'opendir*' error message shows the file name.

* guix/build/syscalls.scm (opendir*): Add NAME to the 'system-error'
message.
---
 guix/build/syscalls.scm | 3 +--
 1 file changed, 1 insertion(+), 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)))))