system: Add gexp compiler for <operating-system>.

* gnu/system.scm (operating-system-compiler): New procedure.
2017-09-12 22:20:08 +02:00 · 2017-09-12 22:20:08 +02:00 · 96da5d6296
commit 96da5d6296
parent 45bba47510
1 changed files with 10 additions and 0 deletions
--- 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