summary refs log tree commit diff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2018-06-25 00:09:32 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2018-06-26 02:17:04 +0200
commit6c91c0f3462207ff331e1caf3ba32304be218727 (patch)
tree4fd03e113988c8490c03780922e8b8fff0943624
parentdcfdaa15de98dbe063083034b7964a99b60a6d1f (diff)
downloadguix-6c91c0f3462207ff331e1caf3ba32304be218727.tar.gz
gnu: transfig: Return #t from phases.
* gnu/packages/xfig.scm (transfig)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined from phases.
-rw-r--r--gnu/packages/xfig.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/packages/xfig.scm b/gnu/packages/xfig.scm
index 86fbd9159b..9c1f28592f 100644
--- a/gnu/packages/xfig.scm
+++ b/gnu/packages/xfig.scm
@@ -119,7 +119,7 @@ selected in various ways.  For text, 35 fonts are available.")
                  (("/usr/local/lib/fig2dev") (string-append out "/lib")))
                ;; The -a argument is required in order to pick up the correct paths
                ;; to several X header files.
-               (zero? (system* "xmkmf" "-a"))
+               (invoke "xmkmf" "-a")
                (substitute* '("Makefile"
                               "fig2dev/Makefile"
                               "transfig/Makefile")
@@ -130,10 +130,11 @@ selected in various ways.  For text, 35 fonts are available.")
                  (("(MANPATH = )[[:graph:]]*" _ front)
                   (string-append front out "/share/man"))
                  (("(CONFDIR = )([[:graph:]]*)" _ front default)
-                  (string-append front out default))))))
+                  (string-append front out default)))
+               #t)))
          (add-after 'install 'install/doc
            (lambda _
-             (zero? (system* "make" "install.man")))))))
+             (invoke "make" "install.man"))))))
     (home-page "http://mcj.sourceforge.net/")
     (synopsis "Create portable LaTeX figures")
     (description