From d2d02faf1845d6a1d12ec46d7e0d9b43d77a8c6b Mon Sep 17 00:00:00 2001
From: Hugo Buddelmeijer <hugo@buddelmeijer.nl>
Date: Fri, 26 Sep 2025 12:22:13 +0200
Subject: [PATCH] gnu: reducelcs: Update to latest commit.

* gnu/packages/maths.scm (reducelcs): Update to latest commit.
[source]: Update to latest commit, increase revision to 2.
[arguments]<#:phases>{patch-source}: Remove upstreamed phase.

Change-Id: I3a49a03b8093961d166e2d2350638a0e652de3df
Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/maths.scm | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 234b0927967..1cd0865263a 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -8206,8 +8206,8 @@ instruction sets.  Thus, an application written with Vc can be compiled for:
 (define-public reducelcs
   ;; This is the last commit which is available upstream, no
   ;; release happened since 2010.
-  (let ((commit "474f88deb968061abe8cf11c959e02319b8ae5c0")
-        (revision "1"))
+  (let ((commit "963f74f7279ba6fc0ea7d8ddfd361ea190c80313")
+        (revision "2"))
     (package
       (name "reducelcs")
       (version (git-version "1.0" revision commit))
@@ -8220,7 +8220,7 @@ instruction sets.  Thus, an application written with Vc can be compiled for:
          (file-name (git-file-name name version))
          (sha256
           (base32
-           "1rllzcfwc042c336mhq262a8ha90x6afq30kvk60r7i4761j4yjm"))))
+           "03chvd9wb2z08r7ka2npr49dbimjvzn2gfm7cnp5l079vbw1dfny"))))
       (build-system gnu-build-system)
       (inputs (list openlibm))
       (arguments
@@ -8229,18 +8229,6 @@ instruction sets.  Thus, an application written with Vc can be compiled for:
         #:phases
         #~(modify-phases %standard-phases
             (delete 'configure) ; No configure script exists.
-            (add-after 'unpack 'patch-source
-              ;; See: <https://github.com/gdv/Reduce-Expand-for-LCS/pull/1>
-              (lambda _
-                (substitute* "Approximation.c"
-                  (("char min_alphabet,max_alphabet;\n$" all)
-                   (string-append all "
-int ExactLcs2(char lcs[MAXLEN], char *seq1, char *seq2);")))
-                (substitute* "GenerateInstances.c"
-                  (("#include <float.h>" all)
-                   (string-append all "
-#include <time.h>
-#include <string.h>")))))
             (replace 'install ; No install phase exists.
               (lambda* (#:key outputs #:allow-other-keys)
                 (let* ((out (assoc-ref outputs "out"))