"Kevin Ryde" wrote:
> "Jose Roberto B. de A. Monteiro" <[EMAIL PROTECTED]> writes:
> >
> > - (request (format #f "~A ~A ~A" method path http:version))
> > + (request (format #f "~A ~A ~A\r\nHost: ~A" method path http:version
> >(url:host url)))
>
> Perhaps the url:port should be included there too, at least if it's
> not 80.
url:port is used in tcp-port variable, which is an arg to http:open:
(define-public (http:request method url . args)
(let ...
(tcp-port (or (url:port url) 80))
...
(let ((sock (http:open host tcp-port))
...
The port was sent to make the connection, then it makes the request "GET ...".
Thanks...
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
