Mercurial > repos > tabletprog

changeset 365:3d36d69aab7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix JSON decoder to align with language changes
author Michael Pavone <pavone@retrodev.com>
date Fri, 07 Aug 2015 21:40:08 -0700
parents e44f65abaf0e
children 810b6115c1d4
files modules/json.tp
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/modules/json.tp	Sun Apr 26 11:16:14 2015 -0700
+++ b/modules/json.tp	Fri Aug 07 21:40:08 2015 -0700
@@ -18,7 +18,7 @@
 	t <- "t" byte: 0
 	f <- "f" byte: 0
 
-	parseNumAt <- :str :at :recvResult {
+	parseNumAt <- :str at {
 		num <- 0
 		l <- str length
 		minus <- false
@@ -56,7 +56,7 @@
 		}
 	}
 
-	parseStrAt <- :src :at :recvResult {
+	parseStrAt <- :src at {
 		//TODO: Deal with escaped characters
 		end <- src find: "\"" startingAt: at + 1 else: { src length }
 		#{
@@ -69,10 +69,10 @@
 		ret <- false
 		b <- text byte: cur
 		if: b = neg || b >= zero && b <= nine {
-			text parseNumAt: cur
+			parseNumAt: text cur
 		} else: {
 			if: b = quote {
-				text parseStrAt: cur
+				parseStrAt: text cur
 			} else: {
 				if: b = startArr {
 					len <- text length