Hi Drew
On Wed, 04 Feb 2009 23:27:24 -0800 Drew Hess <[email protected]> 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
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
