diff options
Diffstat (limited to 'machines')
| -rw-r--r-- | machines/portable-bios.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/machines/portable-bios.scm b/machines/portable-bios.scm index 3cc9c79..f531a16 100644 --- a/machines/portable-bios.scm +++ b/machines/portable-bios.scm @@ -2,11 +2,10 @@ #:use-module (gnu bootloader) ; bootloader-configuration #:use-module (gnu bootloader grub) ; grub-bootloader #:use-module (gnu system file-systems) ; file-system - #:use-module (suweren system) ; %suweren-operating-system ) ;; bootloader-configuration -(define bootloader-configuration* +(define-public bootloader-configuration* (let ((bootloader* grub-bootloader) (bootloader-targets (list "/dev/sdb")) ; TODO: generalize the target ) @@ -14,7 +13,7 @@ (targets bootloader-targets)))) ;; string -> (file-system) -(define (file-systems* host-name*) +(define-public (file-systems* host-name*) (let* ((root-device-string (string-append host-name* "-root")) (root-device (file-system-label root-device-string)) @@ -23,9 +22,3 @@ (mount-point "/") (device root-device)))) (list file-system-root))) - -;; string -> record operating-system -(define-public (operating-system* host-name*) - (%suweren-operating-system bootloader-configuration* - host-name* - (file-systems* host-name*))) |