summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/repl/server.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm
index d733939c0..9bc11af5f 100644
--- 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)