From c9ae80a7576c659cb19ad3b919d8a89e9fd16f31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 25 Jan 2018 09:48:18 +0100
Subject: base: Buffer input pipe of the 'evaluate' process.

* src/cuirass/base.scm (read/non-blocking): Add 'setvbuf' call.
---
 src/cuirass/base.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/cuirass/base.scm')

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index b3db39d..572d9d3 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -196,6 +196,7 @@ directory and the sha1 of the top level commit in this directory."
 fibers."
   ;; XXX: Since 'read' is not suspendable as of Guile 2.2.3, we use
   ;; 'read-string' (which is suspendable) and then 'read'.
+  (setvbuf port 'block 4096)                   ;'read-string' uses 'read-char'
   (match (read-string port)
     ((? eof-object? eof)
      eof)
-- 
cgit v1.2.3