Ensure backward compatibility for parse' / is_parsed'.

2014-10-03 18:44:09 +02:00
parent ae9f67391c
commit 0647a74875
1 changed files with 1 additions and 0 deletions
--- a/library/parser/json_parser.e
+++ b/library/parser/json_parser.e
@@ -172,6 +172,7 @@ feature -- Obsolete commands
 			"Use restricted `next_parsed_json_value' [sept/2014]."
 		do
 			Result := next_parsed_json_value
+			is_parsed := is_valid
 		end

 feature {JSON_PARSER_ACCESS} -- Obsolete commands: restricted area