[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: ams-lv2: Always return #t from phase remove-sse-flags.
From: |
guix-commits |
Subject: |
02/02: gnu: ams-lv2: Always return #t from phase remove-sse-flags. |
Date: |
Mon, 26 Nov 2018 11:48:21 -0500 (EST) |
hoebjo pushed a commit to branch core-updates
in repository guix.
commit 6cbb2c87216e37f4d11a36d3d95d6c5fa5dc9216
Author: Björn Höfling <address@hidden>
Date: Mon Nov 26 17:24:21 2018 +0100
gnu: ams-lv2: Always return #t from phase remove-sse-flags.
* gnu/packages/music.scm (ams-lv2)[arguments]: Use '(unless' instead of
'(when (not'. Return with #t as last value from phase 'remove-sse-flags'.
---
gnu/packages/music.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 21659a6..568b6f4 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -2310,11 +2310,11 @@ follows a traditional multi-track tape recorder control
paradigm.")
(modify-phases %standard-phases
(add-after 'unpack 'remove-sse-flags
(lambda* (#:key system #:allow-other-keys)
- (when (not (or (string-prefix? "x86_64" system)
- (string-prefix? "i686" system)))
+ (unless (or (string-prefix? "x86_64" system)
+ (string-prefix? "i686" system))
(substitute* "wscript"
- (("'-msse', '-mfpmath=sse', ") ""))
- #t))))
+ (("'-msse', '-mfpmath=sse', ") "")))
+ #t)))
#:tests? #f)) ; no tests
(inputs
`(("lv2" ,lv2)