gnu: geda-gaf: Use modify-phases syntax.

* gnu/packages/engineering.scm (geda-gaf)[arguments]: Use modify-phases syntax.
2016-07-13 21:23:40 +02:00 · 2016-07-13 21:23:40 +02:00 · 2352c97df4
parent 1187a27112
commit 2352c97df4
1 changed files with 6 additions and 7 deletions
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@ -121,13 +121,12 @@ (define-public geda-gaf
    (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")