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 (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?