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

* guix/build/syscalls.scm (opendir*): Add NAME to the 'system-error'
message.
This commit is contained in:
Ludovic Courtès 2017-06-18 00:01:03 +02:00
parent 01049bb0c1
commit 3bacc655c5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -870,8 +870,7 @@ (define opendir*
(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)))))