* 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/eval.c b/eval.c
index 7f611589..16d8d7f4 100644
--- a/eval.c
+++ b/eval.c
@@ -3847,6 +3847,7 @@ void eval_init(void)
   reg_fun(intern(lit("logtest"), user_package), func_n2(logtest));
   reg_fun(intern(lit("lognot"), user_package), func_n2o(lognot, 1));
   reg_fun(intern(lit("logtrunc"), user_package), func_n2(logtrunc));
+  reg_fun(intern(lit("sign-extend"), user_package), func_n2(sign_extend));
   reg_fun(intern(lit("ash"), user_package), func_n2(ash));
   reg_fun(intern(lit("bit"), user_package), func_n2(bit));
   reg_fun(intern(lit("mask"), user_package), func_n0v(maskv));