From 8f79bdd128e7ffcd471ad5f00e33a49619c41e6e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 28 May 2021 21:00:29 -0700 Subject: json: tojson function. * eval.c (eval_init): tojson intrinsic registered. * lib.c (tojson): New function. * lib.h (tojson): Declared. * txr.1: Documented. * share/txr/stdlib/doc-syms.tl: Updated. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 15454da8..117890c7 100644 --- a/eval.c +++ b/eval.c @@ -6873,6 +6873,7 @@ void eval_init(void) reg_fun(intern(lit("prinl"), user_package), func_n2o(prinl, 1)); reg_fun(intern(lit("pprinl"), user_package), func_n2o(pprinl, 1)); reg_fun(intern(lit("tprint"), user_package), func_n2o(tprint, 1)); + reg_fun(intern(lit("tojson"), user_package), func_n2o(tojson, 1)); reg_fun(intern(lit("display-width"), user_package), func_n1(display_width)); reg_fun(intern(lit("fmt-simple"), system_package), func_n5o(fmt_simple, 1)); -- cgit v1.2.3