From 90b144d22d001a832a8fb345a7d71e9c657c0c86 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 3 Jul 2018 11:02:54 +0200
Subject: 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 c1101eb4bb..66c9233b44 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
-- 
cgit v1.2.3

02ebc8fefc87faa6945cd90fe1d4ae'/><select name='h' onchange='this.form.submit();'>
<option value='koszko' selected='selected'>koszko</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>refs</a><a class='active' href='/guix/log/gnu/packages/bdw-gc.scm'>log</a><a href='/guix/tree/gnu/packages/bdw-gc.scm?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>tree</a><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>commit</a><a href='/guix/diff/gnu/packages/bdw-gc.scm?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/bdw-gc.scm'>
<input type='hidden' name='id' value='b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>root</a>/<a href='/guix/log/gnu?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>gnu</a>/<a href='/guix/log/gnu/packages?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>packages</a>/<a href='/guix/log/gnu/packages/bdw-gc.scm?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae'>bdw-gc.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/bdw-gc.scm?id=b53a0c882d02ebc8fefc87faa6945cd90fe1d4ae&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-03-27 15:42:52 +0200'>2018-03-27</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=fbeca8cec643ebbaf4aa2fa42a70ec87d0ff6c52'>gnu: libatomic-ops: Update to 7.6.4.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-02-19 21:50:09 -0500'>2018-02-19</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=7b8acffd60fde8e53d04d5cd3d31c4823f54cd3c'>gnu: libatomic-ops: Update to 7.6.2.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-02-19 21:50:09 -0500'>2018-02-19</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=58f58cb44b2d930f2ca407d57642064cc09718e9'>gnu: libgc: Update to 7.6.4.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-11-28 14:24:09 +0100'>2017-11-28</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=1be8a432457827830d20c6deaca8a3d372ad0753'>gnu: libatomic-ops: Update to 7.4.8.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-09-28 00:13:10 +0200'>2017-09-28</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=4cb87d63e1c06eb99f90f33bd8a68d73975e4d72'>gnu: libgc: Add 'libgc-back-pointers' variant.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-02 18:14:24 +0300'>2017-05-02</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=ed788c31cfac5ec864ad45fb09b2d014fc62461b'>gnu: libgc: Fix Check for Hurd systems.</a><span class='msg-avail'>...</span></td><td>rennes</td></tr>
<tr><td><span title='2016-11-23 23:11:30 -0500'>2016-11-23</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=c8d1e7a1308e3c83aeb556be7d5b1e1836544e95'>gnu: libgc-7.2: Remove package.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-11-21 14:24:29 -0500'>2016-11-21</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=4b269baf44d02c00ff3a09743ce4224cfbdc312b'>gnu: libgc: Update to 7.6.0.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-11-21 14:24:28 -0500'>2016-11-21</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=a8ce976fe6e151a14b1a5ad48f652931ef67ca40'>gnu: libgc-7.2: Update to 7.2g.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-11-21 14:17:29 -0500'>2016-11-21</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=a373c68588498c7f2316227f020036e49ec648c5'>gnu: libatomic-ops: Update to 7.4.4.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-01-13 18:18:48 +0100'>2016-01-13</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=8c986ab12034d67db836a881f57c69754d8073ae'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-01-02 16:06:11 -0600'>2016-01-02</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=8d0801ab235a6083c17235cefc214eb0537ffc1e'>gnu: libgc: Enable C++ support.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>
<tr><td><span title='2016-01-02 16:04:55 -0600'>2016-01-02</span></td><td><a href='/guix/commit/gnu/packages/bdw-gc.scm?id=209778717a214cb4d506fe9aa673a4d2c2716b6c'>gnu: Add Asymptote.</a><span class='msg-avail'>...</span></td><td>Eric Bavier</td></tr>