diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-26 16:20:25 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-27 12:46:28 +0200 |
| commit | 923e2d249e26760862b602fca0edecddecef3e57 (patch) | |
| tree | 9783e18de2de2a06a92a28b3690f62c4fcf50ab4 /gnu/packages | |
| parent | 0b6be05e5edf64b44bd9782f9ebf4687b4beb75c (diff) | |
| download | guix-923e2d249e26760862b602fca0edecddecef3e57.tar.gz guix-923e2d249e26760862b602fca0edecddecef3e57.zip | |
gnu: aegis: Return #t from phases.
* gnu/packages/version-control.scm (aegis)[arguments]: Substitute INVOKE
for SYSTEM*. Return #t rather than undefined from phases.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/version-control.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index cdec98025c..fa36f871c7 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -1465,7 +1465,8 @@ accessed and migrated on modern systems.") "libaegis/getpw_cache.cc") (find-files "test" "\\.sh")) (("/bin/sh") (which "sh"))) - (setenv "SH" (which "sh")))) + (setenv "SH" (which "sh")) + #t)) (replace 'check (lambda _ (let ((home (string-append (getcwd) "/my-new-home"))) @@ -1473,7 +1474,7 @@ accessed and migrated on modern systems.") (mkdir 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" (("type lex") "type flex")) @@ -1486,7 +1487,7 @@ accessed and migrated on modern systems.") "01/t0196a")) ;; The author decided to call the check rule "sure". - (zero? (system* "make" "sure")))))))) + (invoke "make" "sure"))))))) (home-page "http://aegis.sourceforge.net") (synopsis "Project change supervisor") (description "Aegis is a project change supervisor, and performs some of |