.

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")