* match.c (v_load): use the abs_path_p function instead of

checking for leading slash.

* stream.c (abs_path_p): New function.
(stream_init): Register abs_path_p as abs-path-p.

* stream.h (abs_path_p): Declared.

* txr.1: Documented abs-path-p.

* dep.mk: Updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index c2f72cf6..4d21b583 100644
--- a/match.c
+++ b/match.c
@@ -3647,7 +3647,7 @@ static val v_load(match_files_ctx *c)
     sem_error(specline, lit("load: null string path given"), nao);
 
   {
-    val path = if3(chr_str(target, zero) == chr('/'),
+    val path = if3(abs_path_p(target),
                    target,
                    cat_str(nappend2(sub_list(split_str(parent, lit("/")),
                                          zero, negone),