* arith.c (make_ubignum): New static function.

(sign_extend): New function.

* eval.c (eval_init): Register sign-extend intrinsic.

* lib.h (sign_extend): Declared.

* txr.1: Documented sign-extend.

* tl.vim, txr.vim: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index cd753e52..511f6838 100644
--- a/lib.h
+++ b/lib.h
@@ -600,6 +600,7 @@ val logxor(val, val);
 val logtest(val, val);
 val lognot(val, val);
 val logtrunc(val a, val bits);
+val sign_extend(val num, val nbits);
 val ash(val a, val bits);
 val bit(val a, val bit);
 val maskv(val bits);