build-system/trivial: Implement the cross-build protocol.

* guix/build-system/trivial.scm (guile-for-build): New procedure.
  (trivial-build): Use it.
  (trivial-cross-build): New procedure.
  (trivial-build-system): Use it.

1 files changed, 10 insertions, 1 deletions

diff --git a/tests/packages.scm b/tests/packages.scm
index b439183eba..bec9de5b45 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -94,7 +94,7 @@
                    ("d" ,d) ("d/x" "something.drv"))
                  (pk 'x (package-transitive-inputs e))))))
 
-(test-skip (if (not %store) 5 0))
+(test-skip (if (not %store) 6 0))
 
 (test-assert "return values"
   (let-values (((drv-path drv)
@@ -203,6 +203,15 @@
     (and (derivation-path? drv-path)
          (derivation? drv))))
 
+(test-assert "package-cross-derivation, trivial-build-system"
+  (let ((p (package (inherit (dummy-package "p"))
+             (build-system trivial-build-system)
+             (arguments '(#:builder (exit 1))))))
+    (let-values (((drv-path drv)
+                  (package-cross-derivation %store p "mips64el-linux-gnu")))
+      (and (derivation-path? drv-path)
+           (derivation? drv)))))
+
 (unless (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV))
   (test-skip 1))
 (test-assert "GNU Make, bootstrap"