REPL server: Avoid deprecated '_IOFBF'.

* module/system/repl/server.scm (drain-input-and-close): Use 'block
instead of _IOFBF.

diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm
index d733939c022fa5f94b4ac14ff9f68a2edc86c19c..9bc11af5f015a16c998260893d4ff64d2e6f2a05 100644 (file)
--- a/module/system/repl/server.scm
+++ b/module/system/repl/server.scm
@@ -211,7 +211,7 @@ and then close it.  Return the drained input as a string."
     (lambda ()
       ;; Enable full buffering mode on the socket to allow
       ;; 'get-bytevector-some' to return non-trivial chunks.
-      (setvbuf socket _IOFBF))
+      (setvbuf socket 'block))
     (lambda ()
       (let loop ((chunks '()))
         (let ((result (and (char-ready? socket)