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/lib.h b/lib.h
index 614263de..2e416dcd 100644
--- a/lib.h
+++ b/lib.h
@@ -796,6 +796,7 @@ INLINE val type_check(val self, val obj, type_t typecode)
     throw_mismatch(self, obj, typecode);
   return t;
 }
+NORETURN void unsup_obj(val self, val obj);
 val car(val cons);
 val cdr(val cons);
 INLINE val us_car(val cons) { return cons->c.car; }