New function: buf-xor-pattern.

* buf.c (buf_xor_pattern): New function.
(buf_init): Register buf-xor-pattern intrinsic.

* buf.h (buf_xor_pattern): Declared.

* lib.[ch] (unsup_obj): Change function to
external linkage and declare in header.

* tests/012/buf.tl: New tests.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/buf.h b/buf.h
index c3c0fb29..fa3fbbcb 100644
--- a/buf.h
+++ b/buf.h
@@ -137,5 +137,6 @@ val buf_bit(val buf, val bit);
 val buf_zero_p(val buf);
 val buf_count_ones(val buf);
 val buf_binary_width(val buf);
+val buf_xor_pattern(val buf, val pat);
 
 void buf_init(void);