From b47025c3edc0c7a191398d9ceac089011fc80ea1 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 27 Sep 2016 06:55:23 -0700
Subject: 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.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

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),
-- 
cgit v1.2.3