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.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 1b9c1702..1d1ee673 100644
--- a/lib.h
+++ b/lib.h
@@ -1206,6 +1206,7 @@ val print(val obj, val stream, val pretty);
 val pprint(val obj, val stream);
 val tostring(val obj);
 val tostringp(val obj);
+val tojson(val obj, val flat);
 val display_width(val obj);
 #if !HAVE_SETENV
 void setenv(const char *name, const char *value, int overwrite);