[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/09: gnu: racket: fix `raco exe` with non-minimal Racket
From: |
guix-commits |
Subject: |
07/09: gnu: racket: fix `raco exe` with non-minimal Racket |
Date: |
Fri, 10 Sep 2021 11:31:26 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit fd22921490f40044d58be8ddc3b38b8be12188a6
Author: Philip McGrath <philip@philipmcgrath.com>
AuthorDate: Mon Sep 6 00:59:02 2021 -0400
gnu: racket: fix `raco exe` with non-minimal Racket
This commit backports an upstream repair for a bug exposed by Guix's
change in Racket 8.2 to make the `racket` package a layered/tethered
installation that chains to the `racket-minimal` package. When using a
layered/tethered installation, the `setup/variant` library would fail to
recognize the default Racet variant (CS, 3M, or CGC), leading to
confusing failures from `raco exe`, `create-embedding-executable`, and
other clients.
For further details, see <https://issues.guix.gnu.org/50118> and
<https://github.com/racket/racket/issues/3969>.
* gnu/packages/patches/racket-minimal-backport-1629887.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add it.
* gnu/packages/racket.scm (racket-minimal)[source]: Use it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
gnu/local.mk | 1 +
.../patches/racket-minimal-backport-1629887.patch | 28 ++++++++++++++++++++++
gnu/packages/racket.scm | 4 +++-
3 files changed, 32 insertions(+), 1 deletion(-)
diff --git a/gnu/local.mk b/gnu/local.mk
index 175e691..a7255e8 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1703,6 +1703,7 @@ dist_patch_DATA =
\
%D%/packages/patches/ripperx-missing-file.patch \
%D%/packages/patches/rpcbind-CVE-2017-8779.patch \
%D%/packages/patches/rtags-separate-rct.patch \
+ %D%/packages/patches/racket-minimal-backport-1629887.patch \
%D%/packages/patches/racket-minimal-sh-via-rktio.patch \
%D%/packages/patches/remake-impure-dirs.patch \
%D%/packages/patches/restic-0.9.6-fix-tests-for-go1.15.patch \
diff --git a/gnu/packages/patches/racket-minimal-backport-1629887.patch
b/gnu/packages/patches/racket-minimal-backport-1629887.patch
new file mode 100644
index 0000000..aa060ef
--- /dev/null
+++ b/gnu/packages/patches/racket-minimal-backport-1629887.patch
@@ -0,0 +1,28 @@
+From fb1a6ab205fd63a46669a463931af473e2ac0c87 Mon Sep 17 00:00:00 2001
+From: Matthew Flatt <mflatt@racket-lang.org>
+Date: Sat, 21 Aug 2021 15:29:59 -0600
+Subject: [PATCH] setup/variant: recognize starter executables
+
+Related to #3969
+
+(cherry picked from commit 1629887071fe3cc8fe8af0a7aa0d3912509cb058)
+---
+ racket/collects/setup/variant.rkt | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/racket/collects/setup/variant.rkt
b/racket/collects/setup/variant.rkt
+index 81da6f5701..b23131e481 100644
+--- a/racket/collects/setup/variant.rkt
++++ b/racket/collects/setup/variant.rkt
+@@ -25,7 +25,7 @@
+ (and (file-exists? f)
+ (with-input-from-file f
+ (lambda ()
+- (define m (regexp-match #rx#"bINARy tYPe:..(.)"
++ (define m (regexp-match #rx#"bINARy tYPe:e?..(.)"
+ (current-input-port)))
+ (cond
+ [(not m) '3m]
+--
+2.30.2
+
diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm
index 8349c50..5b3e941 100644
--- a/gnu/packages/racket.scm
+++ b/gnu/packages/racket.scm
@@ -138,7 +138,9 @@
(sha256
"061bhiyjlvazph0dj9i3i3x2q5z53rp8h5cjwg3frjimkr45lncn")
(file-name (git-file-name name version))
- (patches (search-patches "racket-minimal-sh-via-rktio.patch"))
+ (patches (search-patches "racket-minimal-sh-via-rktio.patch"
+ ;; Remove the following in version 8.3:
+ "racket-minimal-backport-1629887.patch"))
(modules '((guix build utils)))
(snippet
(with-imported-modules '((guix build utils))
- branch master updated (eb31966 -> 9875f9b), guix-commits, 2021/09/10
- 02/09: base16: Reduce GC pressure in bytevector->base16-string., guix-commits, 2021/09/10
- 01/09: gnu: llvm-for-rocm: Move to llvm.scm., guix-commits, 2021/09/10
- 04/09: lint: archival: Warn about non-origin sources., guix-commits, 2021/09/10
- 05/09: swh: Adjust to new vault API., guix-commits, 2021/09/10
- 03/09: base32: Provide an open-coded 'bit-field'., guix-commits, 2021/09/10
- 06/09: swh: 'swh-download' reports revision lookup failures., guix-commits, 2021/09/10
- 07/09: gnu: racket: fix `raco exe` with non-minimal Racket,
guix-commits <=
- 08/09: gnu: racket: suppress build stamp, guix-commits, 2021/09/10
- 09/09: import: elpa: Don't hardcode default branch to 'master'., guix-commits, 2021/09/10