Change criterion for *load-path*-relative loading.

* eval.c (load): Do not resolve all relative paths
relative to the current *load-path*, only pure
relative ones.

* match.c (v_load): Likewise.

* txr.1: Update doc for @(load)/@(include) and load function.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 463eb7f5..263fa677 100644
--- a/eval.c
+++ b/eval.c
@@ -3347,7 +3347,7 @@ val load(val target)
 {
   uses_or2;
   val parent = or2(load_path, null_string);
-  val path = if3(abs_path_p(target),
+  val path = if3(!pure_rel_path_p(target),
                  target,
                  cat_str(nappend2(sub_list(split_str(parent, lit("/")),
                                            zero, negone),