1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| | From 6b3aed3d71ea9481762de7bd42395704176b6625 Mon Sep 17 00:00:00 2001
From: Suhail <suhail@bayesians.ca>
Date: Mon, 16 Dec 2024 15:07:55 -0500
Subject: [PATCH v2] racket: raco: Ensure launchers of packages include config
directory.
---
racket/collects/launcher/launcher.rkt | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/racket/collects/launcher/launcher.rkt b/racket/collects/launcher/launcher.rkt
index 0faacec4ce..2c77d55caf 100644
--- a/racket/collects/launcher/launcher.rkt
+++ b/racket/collects/launcher/launcher.rkt
@@ -405,7 +405,14 @@
[x-flags? (and (eq? kind 'mred)
(eq? (cross-system-type) 'unix)
(not (script-variant? variant)))]
- [flags (let ([m (assq 'wm-class aux)])
+ [flags (let ([m (assq 'wm-class aux)]
+ [flags (if (or (member "-G" flags)
+ (member "--config" flags))
+ flags
+ (list* "-G"
+ (format "~a"
+ (find-system-path 'config-dir))
+ flags))])
(if m
(list* "-J" (cdr m) flags)
flags))]
--
2.47.1
|