diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-25 10:10:09 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-25 12:29:22 +0200 |
| commit | d52e16d3b68b4f5e748b4d6014d4a9c207266ade (patch) | |
| tree | 545b4d2656081a1d0fe8e1d1f0fad49740cd7fbb /.dir-locals.el | |
| parent | b930f0ba2115f71c323d4bf3d72efb763f716296 (diff) | |
| download | guix-d52e16d3b68b4f5e748b4d6014d4a9c207266ade.tar guix-d52e16d3b68b4f5e748b4d6014d4a9c207266ade.tar.gz | |
deduplication: Use 'dynamic-wind' when changing permissions of the parent.
Suggested by Caleb Ristvedt <caleb.ristvedt@cune.org>.
* guix/store/deduplication.scm (call-with-writable-file): New procedure.
(with-writable-file): New macro.
(replace-with-link): Use it.
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 92979fc5ed..155255a770 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -37,6 +37,7 @@ (eval . (put 'with-file-lock 'scheme-indent-function 1)) (eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1)) (eval . (put 'with-profile-lock 'scheme-indent-function 1)) + (eval . (put 'with-writable-file 'scheme-indent-function 1)) (eval . (put 'package 'scheme-indent-function 0)) (eval . (put 'origin 'scheme-indent-function 0)) |