From 8f79bdd128e7ffcd471ad5f00e33a49619c41e6e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

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);
-- 
cgit v1.2.3