Path context for consult

[kenbowen]

• consult/1 call consult/2 by consult(FF) iff consult(FF, '');
  consult(FF, P) iff P is a path and:
  1. if FF is a bare file, then consult(F, P) attempts to load P/F
  2. if FF is a file A with a path prefix Q, consult(F, P) iff consult(A, P/Q)
  3. if FF = [A,B,...], consult(FF, P) iff consult(A,P) & consult(B, P) & ...
  4. consult( :- consult(FF, Q), P) iff consult(FF, P/Q)
  5. consult( :- [A, B, ...], P) iff consult(A, P) & consult(B, P) & ...
• Add a dynamic prolog flag cp (consult path) such that consult(FF) iff consult(FF, cp).

[kenbowen]

The most important parts of this enhancement request are items i) - iii). These can be achieved by making use of consult/2 with the search_path option in the second argument,
as follows:

i) consult('id.pro', [search_path('examples/als')]).

ii) consult('als/id.pro', [search_path('examples/')]).

iii) consult(['id.pro', 'hickory.pro'], [search_path('examples/als')]).