227/229: services: fstrim: Fix schedule ungexp.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit f215d801277a60cc1d862ed59c179cb8a482ced5
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Sun Mar 26 16:17:22 2023 +0100

    services: fstrim: Fix schedule ungexp.
    
    Previously, only the first level of the list would be quoted,
    resulting in a schedule of the sort:
    '(next-second (range 0 60 30))
    being incorrectly ungexp'd into:
    (list next-second (0 30))
    
    * gnu/services/linux.scm (fstrim-mcron-job): Fix schedule ungexp.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 gnu/services/linux.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/services/linux.scm b/gnu/services/linux.scm
index d085b375a2..439848919d 100644
--- a/gnu/services/linux.scm
+++ b/gnu/services/linux.scm
@@ -234,7 +234,7 @@ more information)."
        ;; lists are ungexp'd correctly since @var{schedule}
        ;; can be either a procedure, a string or a list.
        #$(if (list? schedule)
-             `(list ,@schedule)
+             #~'(#$@schedule)
              schedule)
        (lambda ()
          (system* #$(file-append package "/sbin/fstrim")