From d723619fc30667514fea944256bd55afe5e219f0 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 28 May 2022 10:34:30 +0200
Subject: [PATCH] gnu: r-biostrings: Patch for R 4.2.0.

* gnu/packages/bioconductor.scm (r-biostrings)[arguments]: Add build phase
'patch-for-R-4.2.0.
---
 gnu/packages/bioconductor.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index bf371a970a..0410ff8a82 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -3104,6 +3104,19 @@ (define-public r-biostrings
     (properties
      `((upstream-name . "Biostrings")))
     (build-system r-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         ;; See commit c3340745870a88d1558e093a7f892c1aeac784ef in
+         ;; https://github.com/Bioconductor/Biostrings/
+         (add-after 'unpack 'patch-for-R-4.2.0
+           (lambda _
+             (substitute* '("src/BitMatrix.c"
+                            "src/RoSeqs_utils.c"
+                            "src/match_pdict_utils.c"
+                            "src/xscat.c")
+               (("#include <S.h>.*")
+                "#define Salloc(n,t) (t*)S_alloc(n, sizeof(t))  /* from old <S.h> */\n")))))))
     (propagated-inputs
      (list r-biocgenerics
            r-crayon