From 14fc8e2efa9281d422166e43f5827fef4d29c912 Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Fri, 30 Apr 2021 20:38:26 -0600
Subject: [PATCH] support full paths in load_context_path/2 (#916)

---
 src/loader.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/loader.pl b/src/loader.pl
index 6324e7cd..de6e8c53 100644
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -463,7 +463,9 @@ use_module(Module, Exports) :-
 %% directory. Otherwise, use the relative path of Path.
 
 load_context_path(Module, Path) :-
-    (  prolog_load_context(directory, CurrentDir) ->
+    (  sub_atom(Module, 0, 1, _, '/') ->
+       Path = Module
+    ;  prolog_load_context(directory, CurrentDir) ->
        % Rust's Path module never ends a directory path with '/', so
        % add one here.
        atom_concat(CurrentDir, '/', CurrentDirSlashed),
-- 
2.54.0