From 96da5d629672b27d4628c1f4dc8a273d4ade7852 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 12 Sep 2017 22:20:08 +0200
Subject: [PATCH] system: Add gexp compiler for <operating-system>.

* gnu/system.scm (operating-system-compiler): New procedure.
---
 gnu/system.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/system.scm b/gnu/system.scm
index bb7e8531ee429f927e8c489400966e30e85af14a..c4404f59320150a65bd5b50fa3d22b160c6449d1 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -967,4 +967,14 @@ being stored into the \"parameters\" file)."
                      (mount-point #$(boot-parameters-store-mount-point params))))
                  #:set-load-path? #f)))
 
+(define-gexp-compiler (operating-system-compiler (os <operating-system>)
+                                                 system target)
+  ((store-lift
+    (lambda (store)
+      ;; XXX: This is not super elegant but we can't pass SYSTEM and TARGET to
+      ;; 'operating-system-derivation'.
+      (run-with-store store (operating-system-derivation os)
+                      #:system system
+                      #:target target)))))
+
 ;;; system.scm ends here