support full paths in load_context_path/2 (#916)

diff --git a/src/loader.pl b/src/loader.pl
index 6324e7cda9336c60032f357fcde1529e74143668..de6e8c538eea44ec5c02c199ff9e2d3458074050 100644 (file)
--- 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),