diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-18 00:01:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-18 00:14:07 +0200 |
| commit | 3bacc655c5fd988f0199ef259adcb4fb3754042e (patch) | |
| tree | 4ef9f49c9cea62e301e0559013df24978a028fbe /guix/build/syscalls.scm | |
| parent | 01049bb0c1f3f69afb8d1782f99ca5c0adaed946 (diff) | |
| download | guix-patches-3bacc655c5fd988f0199ef259adcb4fb3754042e.tar guix-patches-3bacc655c5fd988f0199ef259adcb4fb3754042e.tar.gz | |
syscalls: 'opendir*' error message shows the file name.
* guix/build/syscalls.scm (opendir*): Add NAME to the 'system-error'
message.
Diffstat (limited to 'guix/build/syscalls.scm')
| -rw-r--r-- | guix/build/syscalls.scm | 3 |
1 files changed, 1 insertions, 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))))) |