2 files changed, 19 insertions, 1 deletions

diff --git a/guix-science/packages/algebra.scm b/guix-science/packages/algebra.scm
index f48b7e8..664e4fd 100644
--- a/guix-science/packages/algebra.scm
+++ b/guix-science/packages/algebra.scm
@@ -7,6 +7,7 @@
                 #:prefix license:)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system pyproject)
+  #:use-module (gnu packages)
   #:use-module (gnu packages check)
   #:use-module (gnu packages cpp)
   #:use-module (gnu packages gcc)
@@ -163,7 +164,10 @@ area (CPUs-GPUs, distributed nodes).")
              (recursive? #t)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0mi9hkcxmnrrs6078wvwwrpg4df92w8rdpi061yc6i8c83r16zmy"))))
+        (base32 "0mi9hkcxmnrrs6078wvwwrpg4df92w8rdpi061yc6i8c83r16zmy"))
+       ;; XXX: Remove when upgrading Composyx from 1.4.2.
+       (patches (search-patches
+                 "patches/composyx-chameleon-1.4.patch"))))
     (arguments
      (list
       #:configure-flags
diff --git a/patches/composyx-chameleon-1.4.patch b/patches/composyx-chameleon-1.4.patch
new file mode 100644
index 0000000..2d613ba
--- /dev/null
+++ b/patches/composyx-chameleon-1.4.patch
@@ -0,0 +1,14 @@
+# Fixes API breakage in Composyx after Chameleon upgrade to version 1.4.
+diff --git a/include/composyx/solver/ChameleonSolver.hpp b/include/composyx/solver/ChameleonSolver.hpp
+index 4ab3f9e9..f3a5bfce 100644
+--- a/include/composyx/solver/ChameleonSolver.hpp
++++ b/include/composyx/solver/ChameleonSolver.hpp
+@@ -82,7 +82,7 @@ public:
+       CHAMELEON_Desc_Destroy(&_chamT);
+     }
+     if (_chamIPIV != nullptr) {
+-      CHAMELEON_Ipiv_Destroy(&_chamIPIV, _chamA);
++      CHAMELEON_Ipiv_Destroy(&_chamIPIV);
+     }
+     if (_chamA != nullptr) {
+       CHAMELEON_Desc_Destroy(&_chamA);