Use *load-path* in load/include directive.

* match.c (v_load): Obtain parent load path from *load-path*
variable, rather than from source location info
associated with the directive. This changes the
semantics of when a @(load ...) occurs in code included
via @(include ...). That @(load ...) is processed in the
*load-path* context of the parent, rather than the
include.

* tests/011/txr-case.txr: Load txr-case.txr from the
standard library, rather than include it. Otherwise
txr-case.txr looks for txr-case.tl in tests/011.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index 75407cd9..f1c1dba4 100644
--- a/match.c
+++ b/match.c
@@ -3865,7 +3865,7 @@ static val v_load(match_files_ctx *c)
   spec_bind (specline, first_spec, c->spec);
   val sym = first(first_spec);
   val args = rest(first_spec);
-  val parent = or2(cdr(source_loc(specline)), null_string);
+  val parent = or2(load_path, null_string);
   val target = tleval(specline, first(args), c->bindings);
 
   if (rest(specline))