From 6892a6968691e4a5f0965acb83f7e6df202c6007 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 6 Jun 2014 08:43:00 -0700 Subject: * eval.c (eval_init): Register new search function as intrinsic. * lib.c (search_list): New static function. (search): New function. * lib.h (search): New function declared. * txr.1: Documented. * txr.vim: Regenerated. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 1be989f2..a4f320ab 100644 --- a/eval.c +++ b/eval.c @@ -3528,6 +3528,7 @@ void eval_init(void) reg_fun(intern(lit("refset"), user_package), func_n3(refset)); reg_fun(intern(lit("replace"), user_package), func_n4o(replace, 2)); reg_fun(intern(lit("update"), user_package), func_n2(update)); + reg_fun(intern(lit("search"), user_package), func_n4o(search, 2)); reg_fun(intern(lit("symbol-value"), user_package), func_n1(symbol_value)); reg_fun(intern(lit("symbol-function"), user_package), func_n1(symbol_function)); -- cgit v1.2.3