json-read goes infinite loop if string terminates without delimiter

[Takashi Kato]

This hangs up:

(import (text json))
(json-read (open-string-input-port "\"aa'"))

[Takashi Kato]

Handling unexpected EOF on string (Fixes #129)

→ <<cset 33b37a1d1841>>