skip whitespace

[fjl]

parse-json fails when whitespace precedes the input.
please fix this by modifying read-json like:

(define (read-json [port (current-input-port)])
  (skip-whitespace port)
  (case (peek-char port)
    [(#\{) (read/hash port)]
    ...

[dherman]

Fixed and updated.

Dave