diff options
-rw-r--r-- | gnu/local.mk | 1 | ||||
-rw-r--r-- | gnu/packages/cran.scm | 4 | ||||
-rw-r--r-- | gnu/packages/patches/r-sapa-lapack.patch | 23 |
3 files changed, 27 insertions, 1 deletions
diff --git a/gnu/local.mk b/gnu/local.mk index 16058ac784..4f868ca53e 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -1969,6 +1969,7 @@ dist_patch_DATA = \ %D%/packages/patches/renpy-use-system-fribidi.patch \ %D%/packages/patches/reposurgeon-add-missing-docbook-files.patch \ %D%/packages/patches/r-httpuv-1.6.6-unvendor-libuv.patch \ + %D%/packages/patches/r-sapa-lapack.patch \ %D%/packages/patches/ri-li-modernize_cpp.patch \ %D%/packages/patches/ripperx-missing-file.patch \ %D%/packages/patches/rpcbind-CVE-2017-8779.patch \ diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm index e544a467a5..0685049641 100644 --- a/gnu/packages/cran.scm +++ b/gnu/packages/cran.scm @@ -62,6 +62,7 @@ #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (guix build-system r) + #:use-module (gnu packages) #:use-module (gnu packages algebra) #:use-module (gnu packages autotools) #:use-module (gnu packages base) @@ -11144,7 +11145,8 @@ sapa R packages.") (uri (cran-uri "sapa" version)) (sha256 (base32 - "0kj681rd4c2lvqr926lb6f4qwp281x5274dg6vbk8pf5y7s0qlpc")))) + "0kj681rd4c2lvqr926lb6f4qwp281x5274dg6vbk8pf5y7s0qlpc")) + (patches (search-patches "r-sapa-lapack.patch")))) (build-system r-build-system) (propagated-inputs (list r-ifultools r-splus2r)) diff --git a/gnu/packages/patches/r-sapa-lapack.patch b/gnu/packages/patches/r-sapa-lapack.patch new file mode 100644 index 0000000000..1911b133c5 --- /dev/null +++ b/gnu/packages/patches/r-sapa-lapack.patch @@ -0,0 +1,23 @@ +From 5eb1faf8ee2eac3057ef55c99dd3083242559b9e Mon Sep 17 00:00:00 2001 +From: dbpercival <dbpercival@gmail.com> +Date: Sat, 8 Jul 2023 16:26:35 -0700 +Subject: [PATCH] Update sapa_lapack.c + +Stephen's suggested change +--- + src/sapa_lapack.c | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/src/sapa_lapack.c b/src/sapa_lapack.c +index eff4851..a520e33 100644 +--- a/src/sapa_lapack.c ++++ b/src/sapa_lapack.c +@@ -102,7 +102,7 @@ SEXP R_sapa_dpss(SEXP nsample, SEXP ntaper, SEXP bandwidth) + ISPLIT, + WORK1, + IWORK1, +- &INFO); ++ &INFO FCONE FCONE); + // if (INFO != 0) + // error(_("error code %d from LAPACK routine '%s'"), info, "dstebz"); + |