From e9b78ff2c7a7765b842588c9a93f84956de9834d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 27 Jan 2015 06:30:11 -0800 Subject: * arith.c (width): New function. * arith.h (width): Declared. * eval.c (eval_init): Width registered as intrisinc. * txr.1: Documented width. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 48925f79..8a795f12 100644 --- a/eval.c +++ b/eval.c @@ -3851,6 +3851,7 @@ void eval_init(void) 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)); + reg_fun(intern(lit("width"), user_package), func_n1(width)); reg_fun(intern(lit("regex-compile"), user_package), func_n2o(regex_compile, 1)); reg_fun(intern(lit("regexp"), user_package), func_n1(regexp)); -- cgit v1.2.3