diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-27 19:51:45 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-27 21:35:29 -0400 |
| commit | 09b8c04e22be9ebf8c4e730498c337ecf24acb74 (patch) | |
| tree | 95af9e34dce5b2945192f1660f4e04860138afc7 | |
| parent | 6076496b518aa8c84c9fec3ab80c6c28678d6e38 (diff) | |
| download | guix-09b8c04e22be9ebf8c4e730498c337ecf24acb74.tar.gz guix-09b8c04e22be9ebf8c4e730498c337ecf24acb74.zip | |
gnu: sicp: Use invoke.
* gnu/packages/scheme.scm (sicp)[arguments]: Use invoke and remove vestigial
plumbing in the builder.
| -rw-r--r-- | gnu/packages/scheme.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index e0402a46ae..a426310594 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -802,13 +802,12 @@ engineering.") (setenv "PATH" (string-append gzip "/bin" ":" texinfo "/bin")) (mkdir-p info-dir) - (and (zero? - (system* "makeinfo" "--output" - (string-append info-dir "/sicp.info") - (string-append source "/sicp-pocket.texi"))) - (every zero? - (map (cut system* "gzip" "-9n" <>) - (find-files info-dir)))))))) + (invoke "makeinfo" "--output" + (string-append info-dir "/sicp.info") + (string-append source "/sicp-pocket.texi")) + (for-each (cut invoke "gzip" "-9n" <>) + (find-files info-dir)) + #t)))) (home-page "https://sarabander.github.io/sicp") (synopsis "Structure and Interpretation of Computer Programs") (description "Structure and Interpretation of Computer Programs (SICP) is |