mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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
1 changed files with 1 additions and 2 deletions
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue