From 691891cf084c639b66d638ebb95ec1b051cf1bb2 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Tue, 12 Dec 2023 10:26:28 +0100 Subject: [PATCH] . --- config.org | 4 ++-- config.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/config.org b/config.org index a808583..8d45ea1 100644 --- a/config.org +++ b/config.org @@ -105,7 +105,7 @@ The variable ~%local-filesystem~ extracts the file system definitions from the i As a sibling to the former, the variable ~%local-swap~ does the same with the swap partition. #+begin_src scheme :tangle config.scm - #;(define %local-swap + (define %local-swap (call-with-input-file "/etc/config.scm" (lambda (port) (read port) @@ -283,7 +283,7 @@ This is the full operating system specification. '("/boot/efi")) (keyboard-layout keyboard-layout))) (file-systems %local-filesystem) - #;(swap-devices %local-swap) + (swap-devices %local-swap) (users (cons* (user-account diff --git a/config.scm b/config.scm index 716065f..74bc7e4 100644 --- a/config.scm +++ b/config.scm @@ -73,7 +73,7 @@ nil ;; [[file:config.org::*File System][File System:2]] -#;(define %local-swap +(define %local-swap (call-with-input-file "/etc/config.scm" (lambda (port) (read port) @@ -109,7 +109,7 @@ nil '("/boot/efi")) (keyboard-layout keyboard-layout))) (file-systems %local-filesystem) - #;(swap-devices %local-swap) + (swap-devices %local-swap) (users (cons* (user-account