Ludovic Courtès writes: > Christopher Allan Webber <cweb...@dustycloud.org> skribis: > >> First of all, the response body starts in the wrong place... it should >> start with "<!DOCTYPE html>". Then, somewhere in the middle it switches >> to garbage output. I'm not sure why. > > [...] > >> + (let ((record ((gnutls-ref 'session-record-port) session))) >> + (define (read! bv start count) >> + (define read-bv (get-bytevector-n record count)) >> + (if (eof-object? read-bv) >> + 0 ; read! returns 0 on eof-object >> + (let ((read-bv-len (bytevector-length read-bv))) >> + (bytevector-copy! read-bv 0 bv 0 read-bv-len) >> + read-bv-len))) > > Looks like ‘start’ is ignored here. Could that be the reason? > > Ludo’.
... that was absolutely it. What an omission on my part! Thanks for catching it. :)
