#:use-module (rnrs bytevectors)
#:export (operating-system
operating-system?
+ this-operating-system
operating-system-bootloader
operating-system-services
(define-record-type* <operating-system> operating-system
make-operating-system
operating-system?
+ this-operating-system
+
(kernel operating-system-kernel ; package
(default linux-libre))
(kernel-arguments operating-system-user-kernel-arguments
(essential-services operating-system-essential-services ; list of services
(thunked)
- (default (essential-services this-record)))
+ (default (essential-services this-operating-system)))
(services operating-system-user-services ; list of services
(default %base-services))