From 63dea3caf035630e7c3998a66ff8a0744d12b1d0 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 28 Apr 2023 23:29:17 +0200
Subject: gnu: r-cplm: Fix build with R 4.3.0.

* gnu/packages/cran.scm (r-cplm)[arguments]: Update headers to find definition
for GET_SLOT.
---
 gnu/packages/cran.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index d918b51092..4cef21a46c 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -373,6 +373,16 @@ queues, stacks, deques, dicts and ordered dicts.")
         (base32 "0mqjk10265hq9bc5ihmgbx1l8fzay1gpdlvx3pirqmvr3w1kwlxk"))))
     (properties `((upstream-name . "cplm")))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         ;; GET_SLOT is only found in Rdefines.h
+         (add-after 'unpack 'compatibility
+           (lambda _
+             (substitute* "src/common.h"
+               (("#include <Rinternals.h>" m)
+                (string-append m "\n#include <Rdefines.h>"))))))))
     (propagated-inputs
      (list r-biglm
            r-coda
-- 
cgit 1.4.1