[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/15: gnu: chez-scheme: Return #t from all phases.
From: |
guix-commits |
Subject: |
08/15: gnu: chez-scheme: Return #t from all phases. |
Date: |
Sat, 16 Feb 2019 14:52:35 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 55623cf08adb2be38b5b4789c18f2b9ede970719
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Sat Feb 16 15:30:10 2019 +0100
gnu: chez-scheme: Return #t from all phases.
* gnu/packages/chez.scm (chez-scheme)[arguments]: Always return #t from
phases.
Substitute INVOKE for SYSTEM*.
---
gnu/packages/chez.scm | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index 8476eef..863a32c 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -122,7 +122,8 @@
;; next one; see <https://github.com/cisco/ChezScheme/issues/209>.
(substitute* "csug/copyright.stex"
(("\\\\INSERTREVISIONMONTHSPACEYEAR" )
- "October 2017")))) ; tarball release date
+ "October 2017")) ; tarball release date
+ #t))
;; Adapt the custom 'configure' script.
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
@@ -140,7 +141,7 @@
(apply unpack (list #:source src))
(apply patch-source-shebangs (list #:source src)))
(delete-file-recursively new-name)
- (system* "mv" orig-name new-name)))
+ (invoke "mv" orig-name new-name)))
`((,nanopass "nanopass-framework-scheme-1.9" "nanopass")
(,stex "stex-1.2.1" "stex")))
;; The Makefile wants to download and compile "zlib". We patch
@@ -174,14 +175,14 @@
(("/bin/true") (which "true")))
(substitute* "stex/Makefile"
(("PREFIX=/usr") (string-append "PREFIX=" out)))
- (zero? (system* "./configure" "--threads"
- (string-append "--installprefix=" out))))))
+ (invoke "./configure" "--threads"
+ (string-append "--installprefix=" out)))))
;; Installation of the documentation requires a running "chez".
(add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "doc")
"/share/doc/" ,name "-" ,version)))
- (system* "make" "docs")
+ (invoke "make" "docs")
(with-directory-excursion "csug"
(substitute* "Makefile"
;; The ‘installdir=’ can't be overruled on the command line.
@@ -191,7 +192,7 @@
;; Avoid the whole mess by running the (machine-independent)
;; ‘installsh’ script at its original location.
(("\\$m/installsh") "makefiles/installsh"))
- (system* "make" "install")
+ (invoke "make" "install")
(install-file "csug.pdf" doc))
(with-directory-excursion "release_notes"
(install-file "release_notes.pdf" doc))
- 09/15: gnu: nanopass: Don't use unstable tarball., (continued)
- 09/15: gnu: nanopass: Don't use unstable tarball., guix-commits, 2019/02/16
- 07/15: gnu: chez-scheme: Fix ‘install-doc’ phase., guix-commits, 2019/02/16
- 04/15: gnu: chez-web: Use GIT- helpers., guix-commits, 2019/02/16
- 10/15: gnu: stex: Don't use unstable tarball., guix-commits, 2019/02/16
- 11/15: gnu: chez-scheme: Don't use unstable tarball., guix-commits, 2019/02/16
- 05/15: gnu: chez-matchable: Don't use unstable tarball., guix-commits, 2019/02/16
- 13/15: gnu: chez-scmutils: Don't use unstable tarball., guix-commits, 2019/02/16
- 14/15: gnu: chez-scmutils: Return #t from all phases., guix-commits, 2019/02/16
- 15/15: gnu: chez-sockets: Use GIT- helpers., guix-commits, 2019/02/16
- 06/15: gnu: chez-irregex: Don't use unstable tarball., guix-commits, 2019/02/16
- 08/15: gnu: chez-scheme: Return #t from all phases.,
guix-commits <=
- 12/15: gnu: chez-mit: Don't use unstable tarball., guix-commits, 2019/02/16