01/02: gnu: tuxguitar: Use "modify-phases" syntax.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 5f1c94986668d413b63730036b2366b8f5127c77
Author: Ricardo Wurmus <address@hidden>
Date:   Tue Dec 29 07:48:10 2015 +0100

    gnu: tuxguitar: Use "modify-phases" syntax.
    
    * gnu/packages/music.scm (tuxguitar)[arguments]: Use "modify-phases"
      syntax.
---
 gnu/packages/music.scm |   22 +++++++++++-----------
 1 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 3787576..dcda09a 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -701,17 +701,17 @@ is subjective.")
        #:tests? #f ;no "check" target
        #:parallel-build? #f ;not supported
        #:phases
-       (alist-cons-before
-        'build 'enter-dir-set-path-and-pass-ldflags
-        (lambda* (#:key inputs #:allow-other-keys)
-          (chdir "TuxGuitar")
-          (substitute* "GNUmakefile"
-            (("PROPERTIES\\?=")
-             (string-append "PROPERTIES?= -Dswt.library.path="
-                            (assoc-ref inputs "swt") "/lib"))
-            (("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o"))
-          #t)
-        (alist-delete 'configure %standard-phases))))
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (add-before 'build 'enter-dir-and-set-flags
+          (lambda* (#:key inputs #:allow-other-keys)
+            (chdir "TuxGuitar")
+            (substitute* "GNUmakefile"
+              (("PROPERTIES\\?=")
+               (string-append "PROPERTIES?= -Dswt.library.path="
+                              (assoc-ref inputs "swt") "/lib"))
+              (("\\$\\(GCJ\\) -o") "$(GCJ) $(LDFLAGS) -o"))
+            #t)))))
     (inputs
      `(("swt" ,swt)))
     (native-inputs