03/05: gnu: boost: Add upstream patch.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 5cde458bd519f0765716afca84627052eee16489
Author: Marius Bakke <address@hidden>
AuthorDate: Sat Jan 11 15:25:49 2020 +0100

    gnu: boost: Add upstream patch.
    
    * gnu/packages/boost.scm (version-with-underscores, boost-patch): New
    procedures.
    (boost)[source](uri): Remove LET binding for VERSION-WITH-UNDERSCORES.
    [source](patches): New field.
---
 gnu/packages/boost.scm | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index c00db88..e44087d 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -45,17 +45,32 @@
   #:use-module (gnu packages shells)
   #:use-module (srfi srfi-1))
 
+(define (version-with-underscores version)
+  (string-map (lambda (x) (if (eq? x #\.) #\_ x)) version))
+
+(define (boost-patch name version hash)
+  (origin
+    (method url-fetch)
+    (uri (string-append "https://www.boost.org/patches/";
+                        (version-with-underscores version) "/" name))
+    (file-name (string-append "boost-" name))
+    (sha256 (base32 hash))))
+
 (define-public boost
   (package
     (name "boost")
     (version "1.72.0")
     (source (origin
               (method url-fetch)
-              (uri (let ((version-with-underscores
-                          (string-map (lambda (x) (if (eq? x #\.) #\_ x)) 
version)))
-                     (string-append "https://dl.bintray.com/boostorg/release/";
-                                    version "/source/boost_"
-                                    version-with-underscores ".tar.bz2")))
+              (uri (string-append "https://dl.bintray.com/boostorg/release/";
+                                  version "/source/boost_"
+                                  (version-with-underscores version) 
".tar.bz2"))
+              (patches
+               (list (boost-patch
+                      ;; 1.72.0 was released with a faulty coroutine submodule:
+                      ;; <https://github.com/boostorg/coroutine/issues/46>.
+                      "0001-revert-cease-dependence-on-range.patch" version
+                      "1zcqxzh56m1s635wqwk15j3zcs2gmjvjy2f0hid7i78s4pgm0yfs")))
               (sha256
                (base32
                 "08h7cv61fd0lzb4z50xanfqn0pdgvizjrpd1kcdgj725pisb5jar"))))