mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

web: Update comment regarding the 'tls-wrap' port wrapper.

Browse source 
* module/web/client.scm (tls-wrap): Update comment.
This commit is contained in:
Ludovic Courtès 2020-01-03 15:44:54 +01:00
parent 38f14ce65d
commit c3daf58b89
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/web/client.scm
View file

@ -264,7 +264,15 @@ host name without trailing dot."
(close-port port))
(unless (port-closed? record)
(close-port record)))
(setvbuf record 'block)
;; Return a port that wraps RECORD to ensure that closing it also
;; closes PORT, the actual socket port, and its file descriptor.
;; XXX: This wrapper would be unnecessary if GnuTLS could
;; automatically close SESSION's file descriptor when RECORD is
;; closed, but that doesn't seem to be possible currently (as of
;; 3.6.9).
(make-custom-binary-input/output-port "gnutls wrapped port" read! write!
get-position set-position!
close))))