blob: 5eabc3c68bcb22eb7f1d2dba41f18be8966cd12c (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(define-module (suweren system)
#:use-module (gnu system) ; operating-system
)
;; string -> record operating-system
(define-public (%suweren-operating-system bootloader-configuration*
host-name*
file-systems*)
(operating-system (bootloader bootloader-configuration*)
(host-name host-name*)
(file-systems file-systems*)))
|
