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, 1 deletions

diff --git a/lib.c b/lib.c
index 8be3f708..5916e1c6 100644
--- a/lib.c
+++ b/lib.c
@@ -410,7 +410,7 @@ static val seq_iterable(seq_info_t si)
   return nil;
 }
 
-static void NORETURN unsup_obj(val self, val obj)
+NORETURN void unsup_obj(val self, val obj)
 {
   uw_throwf(type_error_s, lit("~a: unsupported object ~s"), self, obj, nao);
   abort();