guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#65371] [PATCH telephony-team 07/10] gnu: libnatpmp: Use gexps and s


From: Maxim Cournoyer
Subject: [bug#65371] [PATCH telephony-team 07/10] gnu: libnatpmp: Use gexps and simplify.
Date: Fri, 18 Aug 2023 14:12:58 -0400

* gnu/packages/networking.scm (libnatpmp) [arguments]: Use gexps.  Use gexp
variables and cc-for-target in make flags.
---

 gnu/packages/networking.scm | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index a7cb4f876e..1b2e26c3f6 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -1435,19 +1435,13 @@ (define-public libnatpmp
                 "0w7wvf4yi8qv659dg9d3ndqvh3bqhgm21gd135spwhq6hhnfv106"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'check)) ; no tests
-       #:make-flags
-       (let* ((target ,(%current-target-system))
-              (gcc (if target
-                       (string-append target "-gcc")
-                       "gcc")))
-         (list
-          (string-append "CC=" gcc)
-          (string-append "INSTALLPREFIX=" (assoc-ref %outputs "out"))
-          (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")))))
+     (list #:phases #~(modify-phases %standard-phases
+                        (delete 'configure)
+                        (delete 'check)) ; no tests
+           #:make-flags
+           #~(list (string-append "CC=" #$(cc-for-target))
+                   (string-append "INSTALLPREFIX=" #$output)
+                   (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))))
     (home-page "http://miniupnp.free.fr/libnatpmp.html";)
     (synopsis "C library implementing NAT-PMP")
     (description
-- 
2.41.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]