summary refs log tree commit diff
path: root/gnu/packages/engineering.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2016-07-13 21:23:40 +0200
committerRicardo Wurmus <rekado@elephly.net>2016-07-16 17:19:22 +0200
commit2352c97df40c2f1de283a1f217b7a6566c91dfe4 (patch)
tree7ff64cab5e0ef19f8d90adde4fbcdb0b95ff09da /gnu/packages/engineering.scm
parent1187a27112be10f2ff74144f50c88714ccf30301 (diff)
downloadguix-2352c97df40c2f1de283a1f217b7a6566c91dfe4.tar.gz
gnu: geda-gaf: Use modify-phases syntax.
* gnu/packages/engineering.scm (geda-gaf)[arguments]: Use modify-phases
  syntax.
Diffstat (limited to 'gnu/packages/engineering.scm')
-rw-r--r--gnu/packages/engineering.scm13
1 files changed, 6 insertions, 7 deletions
diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 9066386646..3b1bcbd777 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")