From 32038f425fe093998bd875b939ccdc3d88b5acfc Mon Sep 17 00:00:00 2001 From: forsyth Date: Fri, 8 Apr 2011 15:40:13 +0100 Subject: 20110408-1540 --- appl/lib/json.b | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'appl/lib/json.b') diff --git a/appl/lib/json.b b/appl/lib/json.b index 50e93b27..f4fdce14 100644 --- a/appl/lib/json.b +++ b/appl/lib/json.b @@ -279,9 +279,9 @@ writeval(out: ref Iobuf, o: ref JValue) raises(Badwrite) String => writestring(out, r.s); Int => - puts(out, string r.value); + puts(out, r.text()); Real => - puts(out, string r.value); + puts(out, r.text()); Object => # '{' [pair (',' pair)*] '}' putc(out, '{'); for(l := r.mem; l != nil; l = tl l){ -- cgit v1.2.3