07/11: gnu: make-mingw-w64: Memoize.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 4baaa56e378ee8dd9a65858bf55e49d432d3b350
Author: Jean-Pierre De Jesus DIAZ <jean@foundation.xyz>
AuthorDate: Tue Jun 18 13:26:13 2024 +0200

    gnu: make-mingw-w64: Memoize.
    
    * gnu/packages/mingw.scm (make-mingw-w64): Memoize.
    
    Change-Id: Id5653c79e2d6268f6d8200f0f658b27169eab7c5
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/mingw.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/mingw.scm b/gnu/packages/mingw.scm
index 0ac6f0e767..1ef2c5e1cf 100644
--- a/gnu/packages/mingw.scm
+++ b/gnu/packages/mingw.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2019 Carl Dong <contact@carldong.me>
 ;;; Copyright © 2021 Léo Le Bouter <lle-bout@zaclys.net>
+;;; Copyright © 2024 Foundation Devices, Inc. <hello@foundation.xyz>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -24,15 +25,16 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages cross-base)
   #:use-module (guix build-system gnu)
+  #:use-module (guix memoization)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:export (make-mingw-w64))
 
-(define* (make-mingw-w64 machine
-                         #:key
-                         xgcc
-                         xbinutils
-                         with-winpthreads?)
+(define* (make-mingw-w64/implementation machine
+                                        #:key
+                                        xgcc
+                                        xbinutils
+                                        with-winpthreads?)
   "Return a mingw-w64 for targeting MACHINE.  If XGCC or XBINUTILS is 
specified,
 use that gcc or binutils when cross-compiling.  If WITH-WINPTHREADS? is
 specified, recurse and return a mingw-w64 with support for winpthreads."
@@ -119,6 +121,9 @@ Mingw-w64 is an advancement of the original mingw.org 
project and provides
 several new APIs such as DirectX and DDK, and 64-bit support.")
       (license license:fdl1.3+))))
 
+(define make-mingw-w64
+  (memoize make-mingw-w64/implementation))
+
 (define-public mingw-w64-i686
   (make-mingw-w64 "i686"))