Hi Drew On Wed, 04 Feb 2009 23:27:24 -0800 Drew Hess <dh...@bothan.net> wrote:
> Changing the definition of the nested > accum procedure from this: > > (define (rfc822-header->list iport #!key strict? (reader (cut read-line <>))) > (define (accum name bodies r) > (cons (list name (string-concatenate-reverse bodies)) r)) > > to this: > > (define (rfc822-header->list iport #!key strict? (reader (cut read-line <>))) > (define (accum name bodies r) > (cons (cons name (string-concatenate-reverse bodies)) r)) > > makes it a drop-in replacement for http:read-request-attributes, as far > as I can tell, except for the differences in error-handling. A side note: last time I checked, string-intersperse seemed to be a little faster than string-concatenate. So, I guess (string-intersperse (reverse bodies) "") would be faster than (string-concatenate-reverse bodies) Best wishes. Mario _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users