07/10: gnu: dealii: Remove trailing booleans.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e131f705dd0d605c5c4eddf183e8ff7d22b4c23b
Author: Paul A. Patience <paul@apatience.com>
AuthorDate: Thu Apr 28 18:19:25 2022 +0000

    gnu: dealii: Remove trailing booleans.
    
    * gnu/packages/maths.scm (dealii)[snippet]: Remove trailing boolean (and
    therefore the 'begin').
    [native-inputs, inputs]: Reindent.
    [arguments]<#:phases>: Remove trailing boolean.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/maths.scm | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 0a92533d42..02da977954 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -5191,22 +5191,20 @@ A unique design feature of Trilinos is its focus on 
packages.")
                                 "dealii-fix-sundials.patch"))
        (modules '((guix build utils)))
        (snippet
-        '(begin
-           ;; Remove bundled boost, muparser, TBB and UMFPACK.
-           (delete-file-recursively "bundled")
-           #t))))
+        ;; Remove bundled boost, muparser, TBB and UMFPACK.
+        '(delete-file-recursively "bundled"))))
     (build-system cmake-build-system)
     (outputs '("out" "doc"))
     (native-inputs
      ;; Required to build the documentation.
-      (list graphviz doxygen perl))
+     (list graphviz doxygen perl))
     (inputs
-      (list arpack-ng
-            openblas
-            gfortran
-            lapack
-            muparser
-            zlib))
+     (list arpack-ng
+           openblas
+           gfortran
+           lapack
+           muparser
+           zlib))
     (propagated-inputs
      ;; Some scripts are installed into share/deal.II/scripts that require
      ;; perl and python, but they are not executable (and some are missing the
@@ -5243,8 +5241,7 @@ A unique design feature of Trilinos is its focus on 
packages.")
              (let ((doc (string-append (assoc-ref outputs "doc")
                                        "/share/doc/" ,name "-" ,version)))
                (for-each delete-file (map (lambda (f) (string-append doc "/" 
f))
-                                          '("detailed.log" "summary.log"))))
-             #t)))))
+                                          '("detailed.log" 
"summary.log")))))))))
     (home-page "https://www.dealii.org/";)
     (synopsis "Finite element library")
     (description