New function pure-rel-path-p.

* stream.c (plp_regex): New static variable.
(pure_rel_path_p): New function.
(stream_init): gc-protect plp_regex.
Register pure-rel-path-p intrinsic.

* txr.1: Document pure-rel-path-p and slightly revise abs-path-p.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 828ec25a..5c2fdc47 100644
--- a/stream.h
+++ b/stream.h
@@ -202,5 +202,6 @@ val catenated_stream_push(val new_stream, val cat_stream);
 val remove_path(val path, val throw_on_error);
 val rename_path(val from, val to);
 val abs_path_p(val path);
+val pure_rel_path_p(val path);
 
 void stream_init(void);