diff options
| author | Bruno Victal <mirai@makinata.eu> | 2023-03-26 16:17:22 +0100 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-03-28 22:22:51 -0400 |
| commit | f215d801277a60cc1d862ed59c179cb8a482ced5 (patch) | |
| tree | b53ce520a1a36adcc8a742678b73ed682d5137da /gnu/services | |
| parent | 21f35d2832ffe99b7bb86a05b138c266cebe7f65 (diff) | |
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>
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/linux.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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") |