aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/version-control.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-06-26 16:20:25 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2018-06-27 12:46:28 +0200
commit923e2d249e26760862b602fca0edecddecef3e57 (patch)
tree9783e18de2de2a06a92a28b3690f62c4fcf50ab4 /gnu/packages/version-control.scm
parent0b6be05e5edf64b44bd9782f9ebf4687b4beb75c (diff)
downloadguix-923e2d249e26760862b602fca0edecddecef3e57.tar
guix-923e2d249e26760862b602fca0edecddecef3e57.tar.gz
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/version-control.scm')
-rw-r--r--gnu/packages/version-control.scm7
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