ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: chez-scheme: Return #t from all phases.

Browse source 
* gnu/packages/chez.scm (chez-scheme)[arguments]: Always return #t from phases.
Substitute INVOKE for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2019-02-16 15:30:10 +01:00
parent 95b4f7ca7a
commit 55623cf08a
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/chez.scm
View file

@ -122,7 +122,8 @@ (define-public chez-scheme
;; next one; see <https://github.com/cisco/ChezScheme/issues/209>. ;; next one; see <https://github.com/cisco/ChezScheme/issues/209>.
(substitute* "csug/copyright.stex" (substitute* "csug/copyright.stex"
(("\\\\INSERTREVISIONMONTHSPACEYEAR" ) (("\\\\INSERTREVISIONMONTHSPACEYEAR" )
"October 2017")))) ; tarball release date "October 2017")) ; tarball release date
#t))
;; Adapt the custom 'configure' script. ;; Adapt the custom 'configure' script.
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
@ -140,7 +141,7 @@ (define-public chez-scheme
(apply unpack (list #:source src)) (apply unpack (list #:source src))
(apply patch-source-shebangs (list #:source src))) (apply patch-source-shebangs (list #:source src)))
(delete-file-recursively new-name) (delete-file-recursively new-name)
(system* "mv" orig-name new-name))) (invoke "mv" orig-name new-name)))
`((,nanopass "nanopass-framework-scheme-1.9" "nanopass") `((,nanopass "nanopass-framework-scheme-1.9" "nanopass")
(,stex "stex-1.2.1" "stex"))) (,stex "stex-1.2.1" "stex")))
;; The Makefile wants to download and compile "zlib". We patch ;; The Makefile wants to download and compile "zlib". We patch
@ -174,14 +175,14 @@ (define-public chez-scheme
(("/bin/true") (which "true"))) (("/bin/true") (which "true")))
(substitute* "stex/Makefile" (substitute* "stex/Makefile"
(("PREFIX=/usr") (string-append "PREFIX=" out))) (("PREFIX=/usr") (string-append "PREFIX=" out)))
(zero? (system* "./configure" "--threads" (invoke "./configure" "--threads"
(string-append "--installprefix=" out)))))) (string-append "--installprefix=" out)))))
;; Installation of the documentation requires a running "chez". ;; Installation of the documentation requires a running "chez".
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "doc") (let ((doc (string-append (assoc-ref outputs "doc")
"/share/doc/" ,name "-" ,version))) "/share/doc/" ,name "-" ,version)))
(system* "make" "docs") (invoke "make" "docs")
(with-directory-excursion "csug" (with-directory-excursion "csug"
(substitute* "Makefile" (substitute* "Makefile"
;; The ‘installdir=’ can't be overruled on the command line. ;; The ‘installdir=’ can't be overruled on the command line.
@ -191,7 +192,7 @@ (define-public chez-scheme
;; Avoid the whole mess by running the (machine-independent) ;; Avoid the whole mess by running the (machine-independent)
;; ‘installsh’ script at its original location. ;; ‘installsh’ script at its original location.
(("\\$m/installsh") "makefiles/installsh")) (("\\$m/installsh") "makefiles/installsh"))
(system* "make" "install") (invoke "make" "install")
(install-file "csug.pdf" doc)) (install-file "csug.pdf" doc))
(with-directory-excursion "release_notes" (with-directory-excursion "release_notes"
(install-file "release_notes.pdf" doc)) (install-file "release_notes.pdf" doc))