|
From: | David Thompson |
Subject: | Re: [PATCH] ice-9: Add JSON module. |
Date: | Sat, 15 Aug 2015 21:33:40 -0400 |
User-agent: | Notmuch/0.19 (http://notmuchmail.org) Emacs/24.5.1 (x86_64-unknown-linux-gnu) |
Noticed a couple of small issues after I sent the initial patch that I've fixed in my local git branch: David Thompson <address@hidden> 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
[Prev in Thread] | Current Thread | [Next in Thread] |