me
/
guix
Archived
1
0
Fork 0
Code

gnu: mit-scheme: Update phase style. 

* gnu/packages/scheme.scm (mit-scheme)[arguments]: Use INVOKE and end
phases with #t.
master
Tobias Geerinckx-Rice 2018-02-22 15:26:14 +01:00
parent 4eb0f5cdd9
commit e39631a9e1
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/scheme.scm
View File

@ -8,7 +8,7 @@
;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; Copyright © 2017 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -90,11 +90,10 @@
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'unpack (replace 'unpack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(and (zero? (system* "tar" "xzvf" (invoke "tar" "xzvf"
(assoc-ref inputs "source"))) (assoc-ref inputs "source"))
(chdir ,(mit-scheme-source-directory (%current-system) (chdir ,(mit-scheme-source-directory (%current-system)
version)) version))
(begin
;; Delete these dangling symlinks since they break ;; Delete these dangling symlinks since they break
;; `patch-shebangs'. ;; `patch-shebangs'.
(for-each delete-file (for-each delete-file
@ -103,22 +102,23 @@
(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))
(replace 'build (replace '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")) (invoke "make" "compile-microcode")
(zero? (system* "./etc/make-liarc.sh" (invoke "./etc/make-liarc.sh"
(string-append "--prefix=" out))))))) (string-append "--prefix=" out)))
#t)))
(add-after 'configure 'configure-doc (add-after 'configure 'configure-doc
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(with-directory-excursion "../doc" (with-directory-excursion "../doc"
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bash (assoc-ref inputs "bash")) (bash (assoc-ref inputs "bash"))
(bin/sh (string-append bash "/bin/sh"))) (bin/sh (string-append bash "/bin/sh")))
(system* bin/sh "./configure" (invoke bin/sh "./configure"
(string-append "--prefix=" out) (string-append "--prefix=" out)
(string-append "SHELL=" bin/sh)) (string-append "SHELL=" bin/sh))
(substitute* '("Makefile" "make-common") (substitute* '("Makefile" "make-common")
@ -128,7 +128,8 @@
(add-after 'build 'build-doc (add-after 'build 'build-doc
(lambda* _ (lambda* _
(with-directory-excursion "../doc" (with-directory-excursion "../doc"
(zero? (system* "make"))))) (invoke "make"))
#t))
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -138,7 +139,7 @@
(string-append doc "/share/doc/" ,name "-" ,version))) (string-append doc "/share/doc/" ,name "-" ,version)))
(with-directory-excursion "../doc" (with-directory-excursion "../doc"
(for-each (lambda (target) (for-each (lambda (target)
(system* "make" target)) (invoke "make" target))
'("install-config" "install-info-gz" "install-man" '("install-config" "install-info-gz" "install-man"
"install-html" "install-pdf"))) "install-html" "install-pdf")))
(mkdir-p new-doc/mit-scheme-dir) (mkdir-p new-doc/mit-scheme-dir)