25/28: gnu: stringtemplate4: Prettify "generate-grammar" phase.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit f4aa4cfe001d0637816577450aa2f35e23b5a653
Author: Ricardo Wurmus <address@hidden>
Date:   Tue May 16 13:19:32 2017 +0200

    gnu: stringtemplate4: Prettify "generate-grammar" phase.
    
    * gnu/packages/java.scm (stringtemplate4)[arguments]: Rewrite
    "generate-grammar" phase to use "with-directory-excursion" and to report
    success or failure.
---
 gnu/packages/java.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 6c8af73..b45569a 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -3226,17 +3226,18 @@ StringTemplate also powers ANTLR.")
     (arguments
      `(#:tests? #f
        #:jar-name (string-append ,name "-" ,version ".jar")
+       #:modules ((guix build ant-build-system)
+                  (guix build utils)
+                  (srfi srfi-1))
        #:phases
        (modify-phases %standard-phases
          (add-before 'build 'generate-grammar
-           (lambda* (#:key inputs #:allow-other-keys)
-             (chdir "src/org/stringtemplate/v4/compiler/")
-             (for-each (lambda (file)
-                         (display file)
-                         (newline)
-                         (system* "antlr3" file))
-                       '("STParser.g" "Group.g" "CodeGenerator.g"))
-             (chdir "../../../../.."))))))
+           (lambda _
+             (with-directory-excursion "src/org/stringtemplate/v4/compiler/"
+               (every (lambda (file)
+                        (format #t "~a\n" file)
+                        (zero? (system* "antlr3" file)))
+                      '("STParser.g" "Group.g" "CodeGenerator.g"))))))))
     (inputs
      `(("antlr3" ,antlr3-bootstrap)
        ("antlr2" ,antlr2)