diff options
author | Mark H Weaver <mhw@netris.org> | 2018-03-16 01:38:38 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2018-04-12 04:01:44 -0400 |
commit | 67eb6f508edd26e0acc475eb25d6ae1eb164880a (patch) | |
tree | 4ede8d8ab4f298c24cf6338ab3c9b338cc47f9fb | |
parent | 1293f6d8a4dfad23ec693a1f2785cdb8d09b36f6 (diff) | |
download | guix-67eb6f508edd26e0acc475eb25d6ae1eb164880a.tar.gz |
gnu: guile-irregex: Use invoke.
* gnu/packages/guile.scm (guile-irregex)[arguments]: Use invoke.
-rw-r--r-- | gnu/packages/guile.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index f90f6ae1a9..40db937f2f 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -1064,12 +1064,10 @@ understand, extend, and port to host languages other than Scheme.") (copy-file src-file dest-file) ;; Install compiled module. - (unless (zero? (system* guild "compile" - "-L" (getcwd) - "-o" go-file - src-file)) - (error (format #f "Failed to compile ~s to ~s!" - src-file dest-file))))))) + (invoke guild "compile" + "-L" (getcwd) + "-o" go-file + src-file))))) '(("irregex-guile.scm" "/rx/irregex") ("irregex.scm" "/rx/source/irregex") ;; Not really reachable via guile's packaging system, |