gnu: mit-scheme: Convert to the 'modify-phases' syntax.
* gnu/packages/scheme.scm (mit-scheme): Do it.
This commit is contained in:
parent
e5045f303a
commit
af00e63352
|
@ -59,8 +59,8 @@
|
||||||
(arguments
|
(arguments
|
||||||
`(#:tests? #f ; no "check" target
|
`(#:tests? #f ; no "check" target
|
||||||
#:phases
|
#:phases
|
||||||
(alist-replace
|
(modify-phases %standard-phases
|
||||||
'unpack
|
(replace 'unpack
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(and (zero? (system* "tar" "xzvf"
|
(and (zero? (system* "tar" "xzvf"
|
||||||
(assoc-ref inputs "source")))
|
(assoc-ref inputs "source")))
|
||||||
|
@ -75,22 +75,17 @@
|
||||||
(find-files "src/lib" "^liarc-")
|
(find-files "src/lib" "^liarc-")
|
||||||
(find-files "src/compiler" "^make\\.")))
|
(find-files "src/compiler" "^make\\.")))
|
||||||
(chdir "src")
|
(chdir "src")
|
||||||
#t)))
|
#t))))
|
||||||
(alist-replace
|
(replace 'build
|
||||||
'build
|
|
||||||
(lambda* (#:key system outputs #:allow-other-keys)
|
(lambda* (#:key system outputs #:allow-other-keys)
|
||||||
(let ((out (assoc-ref outputs "out")))
|
(let ((out (assoc-ref outputs "out")))
|
||||||
(if (or (string-prefix? "x86_64" system)
|
(if (or (string-prefix? "x86_64" system)
|
||||||
(string-prefix? "i686" system))
|
(string-prefix? "i686" system))
|
||||||
(zero? (system* "make" "compile-microcode"))
|
(zero? (system* "make" "compile-microcode"))
|
||||||
(zero? (system* "./etc/make-liarc.sh"
|
(zero? (system* "./etc/make-liarc.sh"
|
||||||
(string-append "--prefix=" out))))))
|
(string-append "--prefix=" out))))))))))
|
||||||
%standard-phases))))
|
|
||||||
(inputs
|
(inputs
|
||||||
`(;; TODO: Build doc when TeX Live is available.
|
`(("texinfo" ,texinfo)
|
||||||
;; ("automake" ,automake)
|
|
||||||
;; ("texlive-core" ,texlive-core)
|
|
||||||
("texinfo" ,texinfo)
|
|
||||||
("m4" ,m4)
|
("m4" ,m4)
|
||||||
("libx11" ,libx11)
|
("libx11" ,libx11)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue