unexpected char at byte 8

Larrikin 15.04.2014 01:32

@main[][locals]
	$Source[^file::load[text;bad_json2.txt]]
	$Source[$Source.text]
	^json_parse[$Source]

@json_parse[strSource][locals]
	$strSource[^taint[as-is][$strSource]]
#patch timestamp
	$strSource[^strSource.match[\b(\d{13})\b][g]{"$match.1"}]

	$h[^json:parse[$strSource;
		$.double(false)
		$.distinct[all]
	]]

{"T":"1396937590387"}