From 8f1a036c72e372a29c3a9fc55e6d8b68b0a69bfa Mon Sep 17 00:00:00 2001
From: anemofilia <anemofilia@disroot.org>
Date: Sun, 24 Sep 2023 22:08:43 -0300
Subject: [PATCH] style: use format directly instead of (@@ (ice-9 format)
 format) in (radix services admin)

---
 modules/radix/services/admin.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/modules/radix/services/admin.scm b/modules/radix/services/admin.scm
index 0a1c47d..8ff2783 100644
--- a/modules/radix/services/admin.scm
+++ b/modules/radix/services/admin.scm
@@ -85,16 +85,15 @@
                   (match-record statement <permit-statement>
                     (identity as-user command args setenv
                      keepenv? nopass? nolog? persist?)
-                    ((@@ (ice-9 format) format) #f
-                      "~:[~;permit ~]~:[~;deny ~]~
-                       ~:[~;keepenv ~]~
-                       ~:[~;nopass ~]~
-                       ~:[~;nolog ~]~
-                       ~:[~;persist ~]~
-                       ~@[setenv {~{ ~a~} } ~]~
-                       ~a~@[ as ~a~]~
-                         ~@[ cmd ~a~]~
-                         ~@[ args~{ ~a~}~]~%"
+                    (format #f "~:[~;permit ~]~:[~;deny ~]~
+                                ~:[~;keepenv ~]~
+                                ~:[~;nopass ~]~
+                                ~:[~;nolog ~]~
+                                ~:[~;persist ~]~
+                                ~@[setenv {~{ ~a~} } ~]~
+                                ~a~@[ as ~a~]~
+                                  ~@[ cmd ~a~]~
+                                  ~@[ args~{ ~a~}~]~%"
                       (permit-statement? statement)
                       (deny-statement? statement)
                       keepenv?