diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-09-12 22:20:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-09-12 23:56:33 +0200 |
| commit | 96da5d629672b27d4628c1f4dc8a273d4ade7852 (patch) | |
| tree | 13aaea74f3fec4ac6690903210124186801dc0be /gnu | |
| parent | 45bba47510a3768c59060373d2cc7beca3cd1b07 (diff) | |
| download | patches-96da5d629672b27d4628c1f4dc8a273d4ade7852.tar patches-96da5d629672b27d4628c1f4dc8a273d4ade7852.tar.gz | |
system: Add gexp compiler for <operating-system>.
* gnu/system.scm (operating-system-compiler): New procedure.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index bb7e8531ee..c4404f5932 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 |