From 2868a7009f04a40d52c27503a0a4feb50da5c877 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 22 Feb 2012 00:42:06 -0800 Subject: * eval.c (eval_init): Intrinsic bindings for sub, ref, refset and replace. * lib.c (do_sort): Static function renamed to sort_list. (swap, quicksort, sort_vec): New static functions. (sort): Made generic over lists, vectors and strings. (refset): New function. * lib.h (sort): Declaration updated (parameter name change). (refset): Declared. * txr.1: Mention refset. * txr.vim: Updated with refset. --- eval.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index a733ba45..30598bb6 100644 --- a/eval.c +++ b/eval.c @@ -2235,6 +2235,11 @@ void eval_init(void) reg_fun(intern(lit("length"), user_package), func_n1(length)); + reg_fun(intern(lit("sub"), user_package), func_n3o(sub, 1)); + reg_fun(intern(lit("ref"), user_package), func_n2(ref)); + 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("symbol-function"), user_package), func_n1(symbol_function)); reg_fun(intern(lit("func-get-form"), user_package), func_n1(func_get_form)); reg_fun(intern(lit("func-get-env"), user_package), func_n1(func_get_env)); -- cgit v1.2.3