New function: regex-source.

* regex.c (regex_source): New function.
(regex_init): regex-source intrinsic registered.

* regex.h (regex_source): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/regex.h b/regex.h
index cad2df13..c19afbb9 100644
--- a/regex.h
+++ b/regex.h
@@ -31,6 +31,7 @@ extern wchar_t spaces[];
 
 val regex_compile(val regex, val error_stream);
 val regexp(val);
+val regex_source(val regex);
 val search_regex(val haystack, val needle_regex, val start_num, val from_end);
 val range_regex(val haystack, val needle_regex, val start_num, val from_end);
 val match_regex(val str, val regex, val pos);