me/guix
Archived
1
0
Fork 0
Code Activity

gnu: scmutils: Return #t from all phases.

Browse source 
* gnu/packages/scheme.scm (scmutils)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined or #f from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-26 16:37:17 +02:00
parent 24674e6141
commit b69819d8c2
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/scheme.scm
View file

@ -660,7 +660,8 @@ threads.")
"| mit-scheme"))) "| mit-scheme")))
(with-directory-excursion "scmutils/scmutils" (with-directory-excursion "scmutils/scmutils"
(and (zero? (system "mit-scheme < compile.scm")) (and (zero? (system "mit-scheme < compile.scm"))
(zero? (system make-img))))))) (zero? (system make-img))))
#t)))
(add-before 'install 'fix-directory-names (add-before 'install 'fix-directory-names
;; Correct directory names in the startup script. ;; Correct directory names in the startup script.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
@ -684,8 +685,8 @@ threads.")
;; code. ;; code.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion "scmutils/scmutils" (with-directory-excursion "scmutils/scmutils"
(zero? (apply system* "etags" (apply invoke "etags" (find-files "." "\\.scm")))
(find-files "." "\\.scm")))))) #t))
(replace 'install (replace 'install
;; Copy files to the store. ;; Copy files to the store.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)