From b060aba9b0501e6a197c39a42e04ae4eeeafe9ca Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Thu, 30 Nov 2023 13:34:55 +0100
Subject: [PATCH] .

---
 config.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/config.scm b/config.scm
index d65dc12..1df9663 100644
--- a/config.scm
+++ b/config.scm
@@ -27,6 +27,13 @@
                      wm
                      xorg)
 
+(define %local-filesystem
+  (call-with-input-file "/etc/config.scm"
+    (lambda (port)
+      (read port)
+      (read port)
+      (cdr (last-pair (read port))))))
+
 (operating-system
  (host-name "ziltis-machine")
  (timezone "Europe/Berlin")
@@ -40,11 +47,7 @@
    (targets
     '("/boot/efi"))
    (keyboard-layout keyboard-layout)))
- #~(file-systems #$(call-with-input-file "/etc/config.scm"
-                   (lambda (port)
-                     (read port)
-                     (read port)
-                     (cdr (last-pair (read port))))))
+ (file-systems %local-filesystem)
  #;(file-systems
   (cons*
    (file-system