diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-12-09 19:49:00 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-12-09 22:03:28 +0100 |
| commit | 6c148eaae7ed0688e1e42b092f02ba8a4a870edf (patch) | |
| tree | 7108e75c4f171f9451eaf6767a47698f472c9da1 /guix/import | |
| parent | 18ddbd474b49fb00a50dfdc0d6dfb0185cd7b8fd (diff) | |
| download | guix-6c148eaae7ed0688e1e42b092f02ba8a4a870edf.tar guix-6c148eaae7ed0688e1e42b092f02ba8a4a870edf.tar.gz | |
import/utils: Fix conditional.
This is a follow-up to commit 45584061a9ebe961e2be08ee94c3fe8ad74e2713.
* guix/import/utils.scm (package->definition): Use EQ? instead of = to compare
truthiness; use ELSE instead of (#T).
Diffstat (limited to 'guix/import')
| -rw-r--r-- | guix/import/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/import/utils.scm b/guix/import/utils.scm index 7de95349cd..e227c2e42d 100644 --- a/guix/import/utils.scm +++ b/guix/import/utils.scm @@ -275,9 +275,9 @@ version. If APPEND-VERSION?/string is a string, append this string." (cond ((string? append-version?/string) (string-append name "-" append-version?/string)) - ((= append-version?/string #t) + ((eq? append-version?/string #t) (string-append name "-" (version-major+minor version))) - ((#t) version))) + (else name))) ,guix-package)))) (define (build-system-modules) |