From: Jean-Pierre De Jesus DIAZ <jean@foundation.xyz>
To: 71630@debbugs.gnu.org
Cc: Jean-Pierre De Jesus DIAZ <jean@foundation.xyz>
Subject: [bug#71630] [PATCH 4/5] gnu: mingw-w64-tools: Use G-Expressions.
Date: Tue, 18 Jun 2024 13:26:16 +0200 [thread overview]
Message-ID: <344b2e60dc52efd6d6f9a09181f045e2daa50702.1718708756.git.jean@foundation.xyz> (raw)
In-Reply-To: <cover.1718708756.git.jean@foundation.xyz>
* gnu/packages/mingw.scm (mingw-w64-tools): Use G-Expressions.
Change-Id: I690d0aeae6c6920d2e3eb43732d6b421a3dfc59b
---
gnu/packages/mingw.scm | 70 +++++++++++++++++++++---------------------
1 file changed, 35 insertions(+), 35 deletions(-)
diff --git a/gnu/packages/mingw.scm b/gnu/packages/mingw.scm
index e2fb84ce63..88a2db2141 100644
--- a/gnu/packages/mingw.scm
+++ b/gnu/packages/mingw.scm
@@ -162,45 +162,45 @@ (define-public mingw-w64-tools
(base32 "047f4m37kxf7g8qj23qplrzfd9cirfkkv8d175sfv2zfd7hbqriz"))))
(build-system gnu-build-system)
(arguments
- `(#:modules ((guix build gnu-build-system)
- (guix build utils)
- (srfi srfi-1))
+ (list
+ #:modules '((guix build gnu-build-system)
+ (guix build utils)
+ (srfi srfi-1))
#:phases
- (append
- (modify-phases %standard-phases
- (add-after 'unpack 'cd-gendef
- (lambda _
- (chdir "mingw-w64-tools/gendef"))))
- (modify-phases %standard-phases
- (replace 'unpack
- (lambda _
- (chdir "../genidl"))))
- (modify-phases %standard-phases
- (replace 'unpack
- (lambda _
- (chdir "../genlib"))))
- (modify-phases %standard-phases
- (replace 'unpack
- (lambda _
- (chdir "../genpeimg"))))
- (append-map
- (lambda (target)
+ #~(append
+ (modify-phases %standard-phases
+ (add-after 'unpack 'cd-gendef
+ (lambda _
+ (chdir "mingw-w64-tools/gendef"))))
+ (modify-phases %standard-phases
+ (replace 'unpack
+ (lambda _
+ (chdir "../genidl"))))
+ (modify-phases %standard-phases
+ (replace 'unpack
+ (lambda _
+ (chdir "../genlib"))))
(modify-phases %standard-phases
(replace 'unpack
(lambda _
- (chdir "../widl")
- (false-if-exception
- (delete-file-recursively "../build"))
- #t))
- (replace 'configure
- (lambda args
- (apply (assoc-ref %standard-phases 'configure)
- (append args (list #:out-of-source? #t
- #:configure-flags
- `("--target" ,target
- "--program-prefix"
- ,(string-append target "-")))))))))
- '("i686-w64-mingw32" "x86_64-w64-mingw32")))))
+ (chdir "../genpeimg"))))
+ (append-map
+ (lambda (target)
+ (modify-phases %standard-phases
+ (replace 'unpack
+ (lambda _
+ (chdir "../widl")
+ (false-if-exception
+ (delete-file-recursively "../build"))))
+ (replace 'configure
+ (lambda args
+ (apply (assoc-ref %standard-phases 'configure)
+ (append args (list #:out-of-source? #t
+ #:configure-flags
+ `("--target" ,target
+ "--program-prefix"
+ ,(string-append target "-")))))))))
+ '("i686-w64-mingw32" "x86_64-w64-mingw32")))))
(home-page "https://mingw-w64.org")
(synopsis "Tools of Minimalist GNU for Windows")
(description "This package provides the tools of Minimalist GNU for
--
2.45.1
next prev parent reply other threads:[~2024-06-18 11:28 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-06-18 11:17 [bug#71630] [PATCH 0/5] gnu: make-mingw-w64: Update to 12.0.0 Jean-Pierre De Jesus DIAZ
2024-06-18 11:26 ` [bug#71630] [PATCH 1/5] gnu: make-mingw-w64: Memoize Jean-Pierre De Jesus DIAZ
2024-06-18 11:26 ` [bug#71630] [PATCH 2/5] gnu: make-mingw-w64: Use G-Expressions Jean-Pierre De Jesus DIAZ
2024-06-18 11:26 ` [bug#71630] [PATCH 3/5] gnu: make-mingw-w64: Update to 12.0.0 Jean-Pierre De Jesus DIAZ
2024-06-18 11:26 ` Jean-Pierre De Jesus DIAZ [this message]
2024-06-18 11:26 ` [bug#71630] [PATCH 5/5] gnu: mingw-w64-tools: " Jean-Pierre De Jesus DIAZ
2024-07-15 21:49 ` bug#71630: [PATCH 0/5] gnu: make-mingw-w64: " Christopher Baines
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=344b2e60dc52efd6d6f9a09181f045e2daa50702.1718708756.git.jean@foundation.xyz \
--to=jean@foundation.xyz \
--cc=71630@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.