me
/
guix
Archived
1
0
Fork 0
Code

gnu: aegis: Return #t from phases. 

* gnu/packages/version-control.scm (aegis)[arguments]: Substitute INVOKE
for SYSTEM*. Return #t rather than undefined from phases.
master
Tobias Geerinckx-Rice 2018-06-26 16:20:25 +02:00
parent 0b6be05e5e
commit 923e2d249e
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/version-control.scm
View File

@ -1465,7 +1465,8 @@ accessed and migrated on modern systems.")
"libaegis/getpw_cache.cc") "libaegis/getpw_cache.cc")
(find-files "test" "\\.sh")) (find-files "test" "\\.sh"))
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
(setenv "SH" (which "sh")))) (setenv "SH" (which "sh"))
#t))
(replace 'check (replace 'check
(lambda _ (lambda _
(let ((home (string-append (getcwd) "/my-new-home"))) (let ((home (string-append (getcwd) "/my-new-home")))
@ -1473,7 +1474,7 @@ accessed and migrated on modern systems.")
(mkdir home) (mkdir home)
(setenv "HOME" home) (setenv "HOME" home)
;; This test assumes that flex has been symlinked to "lex". ;; This test assumes that flex has been symlinked to "lex".
(substitute* "test/00/t0011a.sh" (substitute* "test/00/t0011a.sh"
(("type lex") "type flex")) (("type lex") "type flex"))
@ -1486,7 +1487,7 @@ accessed and migrated on modern systems.")
"01/t0196a")) "01/t0196a"))
;; The author decided to call the check rule "sure". ;; The author decided to call the check rule "sure".
(zero? (system* "make" "sure")))))))) (invoke "make" "sure")))))))
(home-page "http://aegis.sourceforge.net") (home-page "http://aegis.sourceforge.net")
(synopsis "Project change supervisor") (synopsis "Project change supervisor")
(description "Aegis is a project change supervisor, and performs some of (description "Aegis is a project change supervisor, and performs some of