aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2018-03-27 19:51:45 -0400
committerMark H Weaver <mhw@netris.org>2018-03-27 21:35:29 -0400
commit09b8c04e22be9ebf8c4e730498c337ecf24acb74 (patch)
tree95af9e34dce5b2945192f1660f4e04860138afc7
parent6076496b518aa8c84c9fec3ab80c6c28678d6e38 (diff)
downloadguix-09b8c04e22be9ebf8c4e730498c337ecf24acb74.tar
guix-09b8c04e22be9ebf8c4e730498c337ecf24acb74.tar.gz
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.scm13
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