gnu: geda-gaf: Use modify-phases syntax.
* gnu/packages/engineering.scm (geda-gaf)[arguments]: Use modify-phases syntax.
This commit is contained in:
parent
1187a27112
commit
2352c97df4
|
@ -121,13 +121,12 @@ plans and designs.")
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(arguments
|
(arguments
|
||||||
'(#:phases
|
'(#:phases
|
||||||
;; tests require a writable HOME
|
(modify-phases %standard-phases
|
||||||
(alist-cons-before
|
;; tests require a writable HOME
|
||||||
'check 'set-home
|
(add-before 'check 'set-home
|
||||||
(lambda _
|
(lambda _
|
||||||
(setenv "HOME" (getenv "TMPDIR")))
|
(setenv "HOME" (getenv "TMPDIR"))
|
||||||
%standard-phases
|
#t)))
|
||||||
)
|
|
||||||
#:configure-flags
|
#:configure-flags
|
||||||
(let ((pcb (assoc-ref %build-inputs "pcb")))
|
(let ((pcb (assoc-ref %build-inputs "pcb")))
|
||||||
(list (string-append "--with-pcb-datadir=" pcb "/share")
|
(list (string-append "--with-pcb-datadir=" pcb "/share")
|
||||||
|
|
Loading…
Reference in New Issue