nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* gnu/packages/chez.scm (chez-scmutils)[arguments]: Always return #t from phases.
Substitute INVOKE for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2019-02-16 18:50:44 +01:00
parent 9b469e2e3a
commit 2245f210ea
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/packages/chez.scm
View File

@ -598,7 +598,7 @@ required to port the program 'Scmutils' to Chez Scheme.")
(delete 'build) (delete 'build)
(add-after 'install 'install-src (add-after 'install 'install-src
(lambda* (#:key (make-flags '()) #:allow-other-keys) (lambda* (#:key (make-flags '()) #:allow-other-keys)
(zero? (apply system* "make" "install-src" make-flags)))) (apply invoke "make" "install-src" make-flags)))
(add-after 'install-src 'absolute-path-in-scm-files (add-after 'install-src 'absolute-path-in-scm-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -618,12 +618,13 @@ required to port the program 'Scmutils' to Chez Scheme.")
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(mk-file (car (find-files out "Makefile")))) (mk-file (car (find-files out "Makefile"))))
(with-directory-excursion (dirname mk-file) (with-directory-excursion (dirname mk-file)
(zero? (apply system* "make" "build" make-flags)))))) (apply invoke "make" "build" make-flags)))))
(add-after 'build 'clean-up (add-after 'build 'clean-up
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out")))
(for-each delete-file (for-each delete-file
(find-files out "Makefile|compile-all\\.ss")))))))) (find-files out "Makefile|compile-all\\.ss"))
#t))))))
(synopsis "Port of MIT/GNU Scheme Scmutils to Chez Scheme") (synopsis "Port of MIT/GNU Scheme Scmutils to Chez Scheme")
(description "This package provides a port of the MIT/GNU Scheme (description "This package provides a port of the MIT/GNU Scheme
Scmutils program to Chez Scheme. The port consists of a set of Scmutils program to Chez Scheme. The port consists of a set of