buf-alloc-size: new function.

* buf.c (buf_alloc_size): New function.
(buf_init): buf-alloc-size intrinsic registered.

* buf.h (buf_alloc_size): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/buf.h b/buf.h
index 18641cfb..60004112 100644
--- a/buf.h
+++ b/buf.h
@@ -34,6 +34,7 @@ val copy_buf(val buf);
 val buf_trim(val buf);
 val buf_set_length(val obj, val len, val init_val);
 val length_buf(val buf);
+val buf_alloc_size(val buf);
 mem_t *buf_get(val buf, val self);
 void buf_fill(val buf, mem_t *src, val self);