guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 1/2] gnu: zsh: Use 'modify-phases'.


From: Tobias Geerinckx-Rice
Subject: [PATCH 1/2] gnu: zsh: Use 'modify-phases'.
Date: Wed, 3 Aug 2016 05:33:35 +0200

* gnu/packages/shells.scm (zsh)[arguments]: Use ‘modify-phases’
instead of ‘alist-delete’.
---
 gnu/packages/shells.scm | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index c3e5303..183ef7f 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -233,27 +233,27 @@ history mechanism, job control and a C-like syntax.")
                 "0dsr450v8nydvpk8ry276fvbznlrjgddgp7zvhcw4cv69i9lr4ps"))))
     (build-system gnu-build-system)
     (arguments `(#:configure-flags '("--with-tcsetpgrp" "--enable-pcre")
-                 #:phases (alist-cons-before
-                           'configure 'fix-sh
-                           (lambda _
-                             ;; Some of the files are ISO-8859-1 encoded.
-                             (with-fluids ((%default-port-encoding #f))
-                               (substitute*
-                                   '("configure"
-                                     "configure.ac"
-                                     "Src/exec.c"
-                                     "Src/mkmakemod.sh"
-                                     "Config/installfns.sh"
-                                     "Config/defs.mk.in"
-                                     "Test/E01options.ztst"
-                                     "Test/A05execution.ztst"
-                                     "Test/A01grammar.ztst"
-                                     "Test/A06assign.ztst"
-                                     "Test/B02typeset.ztst"
-                                     "Completion/Unix/Command/_init_d"
-                                     "Util/preconfig")
-                                 (("/bin/sh") (which "sh")))))
-                           %standard-phases)))
+                 #:phases
+                 (modify-phases %standard-phases
+                   (add-before 'configure 'fix-sh
+                     (lambda _
+                       ;; Some of the files are ISO-8859-1 encoded.
+                       (with-fluids ((%default-port-encoding #f))
+                                    (substitute*
+                                        '("configure"
+                                          "configure.ac"
+                                          "Src/exec.c"
+                                          "Src/mkmakemod.sh"
+                                          "Config/installfns.sh"
+                                          "Config/defs.mk.in"
+                                          "Test/E01options.ztst"
+                                          "Test/A05execution.ztst"
+                                          "Test/A01grammar.ztst"
+                                          "Test/A06assign.ztst"
+                                          "Test/B02typeset.ztst"
+                                          "Completion/Unix/Command/_init_d"
+                                          "Util/preconfig")
+                                      (("/bin/sh") (which "sh")))))))))
     (native-inputs `(("autoconf" ,autoconf)))
     (inputs `(("ncurses" ,ncurses)
               ("pcre" ,pcre)
-- 
2.9.0




reply via email to

[Prev in Thread] Current Thread [Next in Thread]