diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-26 16:37:17 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-27 12:46:29 +0200 |
| commit | b69819d8c25ac0e2989b54e998eaa63fa1ce80e0 (patch) | |
| tree | 129fe205a0cdd481044263b975e469bd06ae1adc | |
| parent | 24674e6141c089d8b4f1ece8cade44656853185d (diff) | |
| download | guix-b69819d8c25ac0e2989b54e998eaa63fa1ce80e0.tar guix-b69819d8c25ac0e2989b54e998eaa63fa1ce80e0.tar.gz | |
gnu: scmutils: Return #t from all phases.
* gnu/packages/scheme.scm (scmutils)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined or #f from phases.
| -rw-r--r-- | gnu/packages/scheme.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index ddc4014d7f..4d5c835454 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -660,7 +660,8 @@ threads.") "| mit-scheme"))) (with-directory-excursion "scmutils/scmutils" (and (zero? (system "mit-scheme < compile.scm")) - (zero? (system make-img))))))) + (zero? (system make-img)))) + #t))) (add-before 'install 'fix-directory-names ;; Correct directory names in the startup script. (lambda* (#:key inputs outputs #:allow-other-keys) @@ -684,8 +685,8 @@ threads.") ;; code. (lambda* (#:key inputs outputs #:allow-other-keys) (with-directory-excursion "scmutils/scmutils" - (zero? (apply system* "etags" - (find-files "." "\\.scm")))))) + (apply invoke "etags" (find-files "." "\\.scm"))) + #t)) (replace 'install ;; Copy files to the store. (lambda* (#:key outputs #:allow-other-keys) |