04/10: ui: Report file names in 'system-error' exceptions from 'delete-file'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 90b144d22d001a832a8fb345a7d71e9c657c0c86
Author: Ludovic Courtès <address@hidden>
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