From 8b31e425fa9e462dc7ca24020a932547a8934d98 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 12 Dec 2025 23:43:25 +0100 Subject: systems: export default label generation to (sovereign systems) It is not possible to otherwise construct a nice-looking definition of a system label. That is because of a restriction by a lexical scope requirement. The gnu:system:operating-system-default-label funciton is instead called in (sovereign systems) module. * deployment/systems/aisaka.scm (operating-system): do this. * deployment/systems/akashi.scm (operating-system): do this. * deployment/systems/asakura.scm (operating-system): do this. * deployment/systems/cokolwiek.scm (operating-system): do this. * deployment/systems/mcdowell.scm (operating-system): do this. * deployment/systems/rakan.scm (operating-system): do this. --- deployment/systems/akashi.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'deployment/systems/akashi.scm') diff --git a/deployment/systems/akashi.scm b/deployment/systems/akashi.scm index 03e188b..896f2f6 100644 --- a/deployment/systems/akashi.scm +++ b/deployment/systems/akashi.scm @@ -76,7 +76,7 @@ gnu:system:%default-kernel-arguments)) (bootloader (machines:thinkpad-x200:bootloader-configuration* keyboard-layout*)) (label (sovereign:systems:operating-system-label* host-name* - (gnu:system:operating-system-default-label gnu:system:this-operating-system))) + gnu:system:this-operating-system)) (keyboard-layout keyboard-layout*) (host-name host-name*) (file-systems (file-systems)) -- cgit v1.2.3