civodul pushed a commit to branch master
in repository guix.
commit 90b144d22d001a832a8fb345a7d71e9c657c0c86
Author: Ludovic Courtès <l...@gnu.org>
Date: Tue Jul 3 11:02:54 2018 +0200
ui: Report file names in 'system-error' exceptions from 'delete-file'.
* guix/ui.scm (delete-file): New error-reporting wrapper.
---
guix/ui.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/guix/ui.scm b/guix/ui.scm
index c1101eb..66c9233 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -520,6 +520,9 @@ FILE."
(set! canonicalize-path
(error-reporting-wrapper canonicalize-path (file) file))
+(set! delete-file
+ (error-reporting-wrapper delete-file (file) file))
+
(define (make-regexp* regexp . flags)
"Like 'make-regexp' but error out if REGEXP is invalid, reporting the error
