From c52a06e7bd793b669150395a7e7ae2ad86a66144 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Sun, 17 Dec 2023 17:34:33 +0100
Subject: [PATCH] .

---
 config.scm | 38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/config.scm b/config.scm
index 5ac7196..11e93ef 100644
--- a/config.scm
+++ b/config.scm
@@ -77,42 +77,6 @@
   xorg)
 ;; Package Modules:1 ends here
 
-;; File System
-
-;; The variable ~%local-filesystem~ extracts the file system definitions from the installer-provided
-;; =config.scm= file.
-
-
-;; [[file:config.org::*File System][File System:1]]
-(define %local-filesystem
-  (call-with-input-file "/etc/config.scm"
-    (lambda (port)
-      (read port)
-      (read port)
-      (eval (cadar (last-pair (read port)))
-            (interaction-environment)))))
-;; File System:1 ends here
-
-
-
-;; As a sibling to the former, the variable ~%local-swap~ does the same with the swap partition.
-
-
-;; [[file:config.org::*File System][File System:2]]
-(define %local-swap
-  (call-with-input-file "/etc/config.scm"
-    (lambda (port)
-      (read port)
-      (read port)
-      (let* ((os-list (read port))
-             (os-list-length (length os-list)))
-        (eval
-         (cadr
-          (list-ref os-list
-                    (- os-list-length 2)))
-         (interaction-environment))))))
-;; File System:2 ends here
-
 ;; Operating System
 
 ;; This is the full operating system specification.
@@ -134,8 +98,6 @@
    (targets
     '("/boot/efi"))
    (keyboard-layout keyboard-layout)))
- #;(file-systems %local-filesystem)
- #;(swap-devices %local-swap)
   (file-systems (append (list
                          (file-system
                           (device (file-system-label "EFI")