* arith.c (width): New function.

* arith.h (width): Declared.

* eval.c (eval_init): Width registered as intrisinc.

* txr.1: Documented width.

1 files changed, 1 insertions, 0 deletions

diff --git a/arith.h b/arith.h
index 2633c296..29561c61 100644
--- a/arith.h
+++ b/arith.h
@@ -35,4 +35,5 @@ val n_choose_k(val n, val k);
 val n_perm_k(val n, val k);
 val tofloat(val obj);
 val toint(val obj, val base);
+val width(val num);
 void arith_init(void);