Federico Beffa <be...@ieee.org> writes: > From 06441ea6992808ef96139ab171269172dc65f2db Mon Sep 17 00:00:00 2001 > From: Federico Beffa <be...@fbengineering.ch> > Date: Sun, 5 Apr 2015 21:59:18 +0200 > Subject: [PATCH] build-system/gnu: Add 'delete-info-dir-file' phase. > > * guix/build/gnu-build-system.scm (delete-info-dir-file): New procedure. > (%standard-phases): Use it. > --- > guix/build/gnu-build-system.scm | 10 ++++++++++ > 1 file changed, 10 insertions(+) > > diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm > index 5220bda..284d1ee 100644 > --- a/guix/build/gnu-build-system.scm > +++ b/guix/build/gnu-build-system.scm > @@ -538,6 +538,15 @@ DOCUMENTATION-COMPRESSOR-FLAGS." > (format #t "not compressing documentation~%") > #t))) > > +(define* (delete-info-dir-file #:key outputs #:allow-other-keys) > + (every (match-lambda > + ((output . directory) > + (let ((info-dir-file (string-append directory "/share/info/dir"))) > + (when (file-exists? info-dir-file) > + (delete-file info-dir-file)) > + #t))) > + outputs))
In this case 'for-each' is the appropriate tool, since it ignores the results of the procedure calls, which are made only for their side effects. So you can omit the #t. Otherwise, looks good to me for 'core-updates'. Thanks! Mark