(define-module (systems mcdowell)
  #:use-module (machines portable-bios)	; bootloader-configuration*
					; file-systems*
					; firmware*
					; initrd*
					; kernel*
  #:use-module (suweren system)		; %suweren-operating-system
  #:use-module (users marekpasnikowski) ; marekpasnikowski-account
  )

;; string
(define host-name*
  "mcdowell")

;; (record user-account)
(define users*
  (list marekpasnikowski-account))

;; record operating-system
(define operating-system*
  (%suweren-operating-system kernel*
			     bootloader-configuration*
			     initrd*
			     firmware*
			     host-name*
			     (file-systems* host-name*)
			     users*))

operating-system*