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:
parent
01049bb0c1
commit
3bacc655c5
|
@ -870,8 +870,7 @@ system to PUT-OLD."
|
||||||
(proc (string->pointer name))))
|
(proc (string->pointer name))))
|
||||||
(if (null-pointer? ptr)
|
(if (null-pointer? ptr)
|
||||||
(throw 'system-error "opendir*"
|
(throw 'system-error "opendir*"
|
||||||
"opendir*: ~A"
|
"~A: ~A" (list name (strerror err))
|
||||||
(list (strerror err))
|
|
||||||
(list err))
|
(list err))
|
||||||
ptr)))))
|
ptr)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue