refactor(mcdowell): remove let* form

1 files changed, 13 insertions, 14 deletions

diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm
index f75e3e7..ab6b8ea 100644
--- a/systems/mcdowell.scm
+++ b/systems/mcdowell.scm
@@ -63,20 +63,19 @@
 (define (operating-system*)
   (use-modules (machines portable-bios)
 	       (suweren system))
-  (let* ((timezone* "Europe/Warsaw"))
-    ((@ (gnu system) operating-system)
-     (bootloader (bootloader-mcdowell))
-     (kernel kernel*)
-     (keyboard-layout keyboard-layout-mcdowell)
-     (initrd initrd*)
-     (firmware firmware*)
-     (host-name host-name*)
-     (file-systems (file-systems* host-name*))
-     (swap-devices (swap-devices* host-name*))
-     (users users*)
-     (timezone timezone*)
-     ;; locale*
-     (services services-mcdowell))))
+  ((@ (gnu system) operating-system)
+   (bootloader (bootloader-mcdowell))
+   (kernel kernel*)
+   (keyboard-layout keyboard-layout-mcdowell)
+   (initrd initrd*)
+   (firmware firmware*)
+   (host-name host-name*)
+   (file-systems (file-systems* host-name*))
+   (swap-devices (swap-devices* host-name*))
+   (users users*)
+   (timezone "Europe/Warsaw")
+   ;; locale*
+   (services services-mcdowell)))
 
 (define-public operating-system*
   (operating-system*))