From 6b3aed3d71ea9481762de7bd42395704176b6625 Mon Sep 17 00:00:00 2001 From: Suhail 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