syscalls: 'opendir*' error message shows the file name.

* guix/build/syscalls.scm (opendir*): Add NAME to the 'system-error' message.
2017-06-18 00:01:03 +02:00 · 2017-06-18 00:01:03 +02:00 · 3bacc655c5
parent 01049bb0c1
commit 3bacc655c5
1 changed files with 1 additions and 2 deletions
--- 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)))))