diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-06-03 22:26:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-06-03 22:58:52 +0200 |
| commit | e8ab4ccaa7def9838a7fc240609028078a0988b0 (patch) | |
| tree | f1f24e45967a015276a368108b0e36ee26038ccc /guix | |
| parent | 2f56845b3332d4aeff7badd64989bea75d20b403 (diff) | |
style: Fix conversion of ‘unquote-splicing’ by ‘-S arguments’.
* guix/scripts/style.scm (unquote->ungexp): Add missing comma for
‘ungexp-splicing’.
* tests/style.scm ("gexpify arguments, substitute-keyword-arguments +
unquote-splicing"): New test.
Change-Id: I17dcdd9b4812d54ddba1137e369360706b137bb4
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/style.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm index 211980dc1c..0727ac1480 100644 --- a/guix/scripts/style.scm +++ b/guix/scripts/style.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2021-2024 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -304,7 +304,7 @@ counterpart." value)) (('unquote-splicing x) (if (= quotation 1) - `(ungexp-splicing x) + `(ungexp-splicing ,x) value)) (('quasiquote x) (list 'quasiquote (loop x (+ quotation 1)))) |