[GODCC][COMMITTED] json.a68: support \r in json strings

[Jose E. Marchesi]

---
 src/json.a68 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/json.a68 b/src/json.a68
index 5e79d0a..a638034 100644
--- a/src/json.a68
+++ b/src/json.a68
@@ -211,6 +211,7 @@ begin
                           if ch = eof_char then json_error ("unterminated string escape")
                           elif ch = "n" then res +:= "'n"
                           elif ch = "t" then res +:= "'t"
+                          elif ch = "r" then res +:= "'r"
                           elif ch = """" then res +:= """"
                           elif ch = "\" then res +:= ch
                           else json_error ("invalid string escape \" + ch)
-- 
2.30.2