mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

REPL server: Avoid deprecated '_IOFBF'.

Browse source 
* module/system/repl/server.scm (drain-input-and-close): Use 'block
instead of _IOFBF.
This commit is contained in:
Ludovic Courtès 2019-06-30 21:41:52 +02:00
parent ab2fd70ef1
commit 80213804ad
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/repl/server.scm
View file

@ -211,7 +211,7 @@ and then close it. Return the drained input as a string."
(lambda () (lambda ()
;; Enable full buffering mode on the socket to allow ;; Enable full buffering mode on the socket to allow
;; 'get-bytevector-some' to return non-trivial chunks. ;; 'get-bytevector-some' to return non-trivial chunks.
(setvbuf socket _IOFBF)) (setvbuf socket 'block))
(lambda () (lambda ()
(let loop ((chunks '())) (let loop ((chunks '()))
(let ((result (and (char-ready? socket) (let ((result (and (char-ready? socket)