me
/
guix
Archived
1
0
Fork 0

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

* gnu/system.scm (operating-system-compiler): New procedure.
master
Ludovic Courtès 2017-09-12 22:20:08 +02:00
parent 45bba47510
commit 96da5d6296
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 0 deletions

View File

@ -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