04/11: gnu: guile-tap: Update to 0.5.1.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit d2b9736c5e4c87af8264304d528c517633a282aa
Author: Frank Terbeck <ft@bewatermyfriend.org>
AuthorDate: Fri May 3 13:22:23 2024 +0200

    gnu: guile-tap: Update to 0.5.1.
    
    * gnu/packages/guile-xyz.scm (guile-tap): Update to 0.5.1.
    [arguments]: Patch bin/tap-harness.
    
    Change-Id: Ia8a02400f1d559fcec7eb9861f24a7116928814b
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/guile-xyz.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 24c216c696..efe345aa66 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -6148,7 +6148,7 @@ in two different guises.")
 (define-public guile-tap
   (package
     (name "guile-tap")
-    (version "0.4.6")
+    (version "0.5.1")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -6157,7 +6157,7 @@ in two different guises.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "04ip5cbvsjjcicsri813f4711yh7db6fvc2px4788rl8p1iqvi6x"))))
+                "0yimi9ci5h6wh7bs3ir7p181pwbd2hxlhx7pqq53gr54mnad8qv4"))))
     (build-system gnu-build-system)
     (arguments
      (list #:phases
@@ -6166,7 +6166,9 @@ in two different guises.")
                  (lambda _
                    (substitute* "Makefile"
                      (("PREFIX = /usr/local") (string-append "PREFIX="
-                                                             #$output)))))
+                                                             #$output)))
+                   (substitute* "bin/tap-harness"
+                     ((" guile ") (string-append " " (which "guile") " ")))))
                (replace 'build
                  (lambda _
                    (invoke "make")