From 9bce258be1a1e28f3253f3562b6137e2627c95bb Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Thu, 13 Mar 2025 11:50:24 +0100
Subject: degrade update-commands function to a procedure

---
 suweren/update.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'suweren/update.scm')

diff --git a/suweren/update.scm b/suweren/update.scm
index cc10dfd..b196e97 100644
--- a/suweren/update.scm
+++ b/suweren/update.scm
@@ -72,7 +72,7 @@
 
 ;; string ->
 ;; record service
-(define-public (update-commands system-name*)
+(define-public update-commands
   (let*
     ( (reconfigure-system*  (reconfigure-system "\"(@ (sovereign systems $HOSTNAME) operating-system*)\""))
       (test-update*         (test-update reconfigure-system*))
-- 
cgit v1.2.3