111/210: gnu: m4-mesboot: Package with boostrap-guile.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit a92d237c7a872614e4f63f3e138b6ac8dd94df78
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Fri Jun 29 21:22:28 2018 +0200

    gnu: m4-mesboot: Package with boostrap-guile.
    
    * gnu/packages/mes.scm (m4-mesboot): Package with boostrap-guile.
---
 gnu/packages/mes.scm | 57 ++++++++++++++++++++++++++--------------------------
 1 file changed, 29 insertions(+), 28 deletions(-)

diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm
index 744b10d..e1c0c8e 100644
--- a/gnu/packages/mes.scm
+++ b/gnu/packages/mes.scm
@@ -605,34 +605,35 @@ standard.")
                (copy-file "libtcc1.a" (string-append out 
"/lib/tcc/libtcc1.a")))))))))
 
 (define-public m4-mesboot
-  (package
-    (inherit m4)
-    (name "m4-mesboot")
-    (version "1.4")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "mirror://gnu/m4/m4-"
-                                  version ".tar.gz"))
-              (sha256
-               (base32
-                "1f9bxj176kf3pvs350w2dfs8jgwhminywri5pyn01b11yc4yhsjw"))))
-    (supported-systems '("i686-linux"))
-    (native-inputs `(("mes" ,mes-boot)
-                     ("tcc" ,tcc-boot)))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (setenv "CONFIG_SHELL" (string-append
-                                       (assoc-ref %build-inputs "bash")
-                                       "/bin/sh"))
-               (setenv "CC" "tcc -static")
-               (setenv "CPP" "tcc -E")
-               (zero?
-                (system* "./configure"
-                         (string-append "--prefix=" out)))))))))))
+  (package-with-bootstrap-guile
+   (package
+     (inherit m4)
+     (name "m4-mesboot")
+     (version "1.4")
+     (source (origin
+               (method url-fetch)
+               (uri (string-append "mirror://gnu/m4/m4-"
+                                   version ".tar.gz"))
+               (sha256
+                (base32
+                 "1f9bxj176kf3pvs350w2dfs8jgwhminywri5pyn01b11yc4yhsjw"))))
+     (supported-systems '("i686-linux"))
+     (native-inputs `(("mes" ,mes-boot)
+                      ("tcc" ,tcc-boot)))
+     (arguments
+      `(#:phases
+        (modify-phases %standard-phases
+          (replace 'configure
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out")))
+                (setenv "CONFIG_SHELL" (string-append
+                                        (assoc-ref %build-inputs "bash")
+                                        "/bin/sh"))
+                (setenv "CC" "tcc -static")
+                (setenv "CPP" "tcc -E")
+                (zero?
+                 (system* "./configure"
+                          (string-append "--prefix=" out))))))))))))
 
 (define-public binutils-mesboot0
   (package