http://paste.debian.net/1054050/(define x
 (call-with-input-string
  "[1, 2] [3"
  (lambda (port)
    (let-values (((obj rest) (read-json port)))
      (list obj rest)))))

#;9> x
(#(1 2) #<parser-input char-seq-cursor "[3" ...>)