From 961866fdca3d8e8353d44e160e4bc3927dd6c6c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 8 Jan 2025 10:21:12 +0100
Subject: [PATCH] DRAFT gnu: julia: Move default load path to the end.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

DRAFT Something’s still broken.

* gnu/packages/julia.scm (julia)[arguments]: In ‘make-wrapper’ phase,
arrange to have the empty entry at the end of JULIA_LOAD_PATH and
JULIA_DEPOT_PATH.

Change-Id: I81e5dbc06535cb9fc7253b2944984cf7890bbe65
---
 gnu/packages/julia.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/julia.scm b/gnu/packages/julia.scm
index 6bc5fa465c..9f9d709647 100644
--- a/gnu/packages/julia.scm
+++ b/gnu/packages/julia.scm
@@ -541,12 +541,15 @@ (define file
                    (let* ((out (assoc-ref outputs "out"))
                           (bin (string-append out "/bin"))
                           (program "julia"))
+                     ;; Always append ":" to the end of the load path.  The
+                     ;; empty load path entry expands to the default load
+                     ;; path, which includes Julia's own modules.
                      (with-directory-excursion bin
                        (wrap-program program
-                         `("JULIA_LOAD_PATH" ":" prefix
-                           ("" "$JULIA_LOAD_PATH"))
-                         `("JULIA_DEPOT_PATH" ":" prefix
-                           ("" "$JULIA_DEPOT_PATH"))))))))
+                         `("JULIA_LOAD_PATH" ":" =
+                           ("$JULIA_LOAD_PATH" ""))
+                         `("JULIA_DEPOT_PATH" ":" =
+                           ("$JULIA_DEPOT_PATH" ""))))))))
 
            #:make-flags
            #~(list (string-append "prefix=" #$output)