[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: geda-gaf: Use modify-phases syntax.
From: |
Ricardo Wurmus |
Subject: |
01/02: gnu: geda-gaf: Use modify-phases syntax. |
Date: |
Sat, 16 Jul 2016 15:24:46 +0000 (UTC) |
rekado pushed a commit to branch master
in repository guix.
commit 2352c97df40c2f1de283a1f217b7a6566c91dfe4
Author: Ricardo Wurmus <address@hidden>
Date: Wed Jul 13 21:23:40 2016 +0200
gnu: geda-gaf: Use modify-phases syntax.
* gnu/packages/engineering.scm (geda-gaf)[arguments]: Use modify-phases
syntax.
---
gnu/packages/engineering.scm | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 9066386..3b1bcbd 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -121,13 +121,12 @@ plans and designs.")
(build-system gnu-build-system)
(arguments
'(#:phases
- ;; tests require a writable HOME
- (alist-cons-before
- 'check 'set-home
- (lambda _
- (setenv "HOME" (getenv "TMPDIR")))
- %standard-phases
- )
+ (modify-phases %standard-phases
+ ;; tests require a writable HOME
+ (add-before 'check 'set-home
+ (lambda _
+ (setenv "HOME" (getenv "TMPDIR"))
+ #t)))
#:configure-flags
(let ((pcb (assoc-ref %build-inputs "pcb")))
(list (string-append "--with-pcb-datadir=" pcb "/share")