ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mit-scheme: Convert to the 'modify-phases' syntax.

Browse source 
* gnu/packages/scheme.scm (mit-scheme): Do it.
This commit is contained in:
Federico Beffa 2015-12-27 19:06:37 +01:00
parent e5045f303a
commit af00e63352
1 changed files with 26 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
gnu/packages/scheme.scm
View file

@ -59,38 +59,33 @@ (define-public mit-scheme
(arguments
`(#:tests? #f ; no "check" target
#:phases
(alist-replace
'unpack
(lambda* (#:key inputs #:allow-other-keys)
(and (zero? (system* "tar" "xzvf"
(assoc-ref inputs "source")))
(chdir ,(mit-scheme-source-directory (%current-system)
version))
(begin
;; Delete these dangling symlinks since they break
;; `patch-shebangs'.
(for-each delete-file
(append '("src/lib/shim-config.scm")
(find-files "src/lib/lib" "\\.so$")
(find-files "src/lib" "^liarc-")
(find-files "src/compiler" "^make\\.")))
(chdir "src")
#t)))
(alist-replace
'build
(lambda* (#:key system outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(if (or (string-prefix? "x86_64" system)
(string-prefix? "i686" system))
(zero? (system* "make" "compile-microcode"))
(zero? (system* "./etc/make-liarc.sh"
(string-append "--prefix=" out))))))
%standard-phases))))
(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key inputs #:allow-other-keys)
(and (zero? (system* "tar" "xzvf"
(assoc-ref inputs "source")))
(chdir ,(mit-scheme-source-directory (%current-system)
version))
(begin
;; Delete these dangling symlinks since they break
;; `patch-shebangs'.
(for-each delete-file
(append '("src/lib/shim-config.scm")
(find-files "src/lib/lib" "\\.so$")
(find-files "src/lib" "^liarc-")
(find-files "src/compiler" "^make\\.")))
(chdir "src")
#t))))
(replace 'build
(lambda* (#:key system outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(if (or (string-prefix? "x86_64" system)
(string-prefix? "i686" system))
(zero? (system* "make" "compile-microcode"))
(zero? (system* "./etc/make-liarc.sh"
(string-append "--prefix=" out))))))))))
(inputs
`(;; TODO: Build doc when TeX Live is available.
;; ("automake" ,automake)
;; ("texlive-core" ,texlive-core)
("texinfo" ,texinfo)
`(("texinfo" ,texinfo)
("m4" ,m4)
("libx11" ,libx11)