From 9d356c9c925451634d2d39e3e1b87efa91e8446b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 17 Oct 2016 21:48:08 +0200 Subject: gnu: guile-lib: Use 'modify-phases'. * gnu/packages/guile.scm (guile-lib)[arguments]: Use 'modify-phases'. --- gnu/packages/guile.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 28a52fc70d..0325e63ef9 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -520,13 +520,12 @@ format is also supported.") "1f9n2b5b5r75lzjinyk6zp6g20g60msa0jpfrk5hhg4j8cy0ih4b")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-cons-before - 'configure 'patch-module-dir - (lambda _ - (substitute* "src/Makefile.in" - (("^moddir[[:blank:]]*=[[:blank:]]*([[:graph:]]+)" _ rhs) - (string-append "moddir = " rhs "/2.0\n")))) - %standard-phases))) + '(#:phases (modify-phases %standard-phases + (add-before 'configure 'patch-module-dir + (lambda _ + (substitute* "src/Makefile.in" + (("^moddir[[:blank:]]*=[[:blank:]]*([[:graph:]]+)" _ rhs) + (string-append "moddir = " rhs "/2.0\n")))))))) (inputs `(("guile" ,guile-2.0))) (home-page "http://www.nongnu.org/guile-lib/") (synopsis "Collection of useful Guile Scheme modules") -- cgit v1.2.3