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/match.c b/match.c
index f1c1dba4..85e44b82 100644
--- a/match.c
+++ b/match.c
@@ -3878,7 +3878,7 @@ static val v_load(match_files_ctx *c)
     sem_error(specline, lit("~s: null string path given"), sym, nao);
 
   {
-    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),