Re: [PATCH] ice-9: Add JSON module.

[David Thompson <davet@gnu.org>]

Noticed a couple of small issues after I sent the initial patch that
I've fixed in my local git branch:

David Thompson <davet@gnu.org> writes:

> +(define-module (ice-9 json)
> +  #:use-module (ice-9 match)
> +  #:use-module (srfi srfi-1)
> +  #:export (read-json write-json))

No need to import SRFI-1.

> +(define (read-zeroes port)
> +  "Read a sequence of zeroes from PORT."
> +  (let loop ((result '()))
> +    (match (peek-char port)
> +      ((? eof-object?)
> +       result)
> +      (#\0
> +       (read-char port)
> +       (loop (cons 0 result)))
> +      (else result))))

Never used.  Removed.

-- 
David Thompson
GPG Key: 0FF1D807