* 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, 36 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 4be52d5f..12611670 100644
--- a/txr.1
+++ b/txr.1
@@ -12452,6 +12452,42 @@ there are no files, then read from standard input:
    @line
    @(end)
 
+.SS Function abs-path-p
+
+.TP
+Syntax:
+
+  (abs-path-p <path>)
+
+.TP
+Description:
+
+The abs-path-function whether the argument <path> is an absolute path.
+If this is true, it returns t, otherwise nil.
+
+An absolute path is a string which either begins with a slash or backslash
+character, or which begins with an alphanumeric word, followed by a colon,
+followed by a slash or backslash.
+
+Examples of absolute paths:
+
+  /etc
+
+  c:/tmp
+
+  ftp://user@server
+
+  disk0:/home
+
+  Z:\eUsers
+
+Examples of strings which are not absolute paths.
+
+  (the empty string)
+  .
+  abc
+  foo:bar/x
+  $:\eabc
 
 .SS Function read