mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

web: Avoid deprecated '_IOFBF'.

Browse source 
* module/web/client.scm (open-socket-for-uri): Use 'block instead of
_IOFBF.
This commit is contained in:
Ludovic Courtès 2017-03-17 23:37:57 +01:00
parent 011669af3b
commit aa86fcb7d9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/client.scm
View file

@ -218,7 +218,7 @@ host name without trailing dot."
(with-https-proxy (with-https-proxy
(let ((s (open-socket))) (let ((s (open-socket)))
;; Buffer input and output on this port. ;; Buffer input and output on this port.
(setvbuf s _IOFBF %http-receive-buffer-size) (setvbuf s 'block %http-receive-buffer-size)
(if https? (if https?
(tls-wrap s (uri-host uri)) (tls-wrap s (uri-host uri))