[no subject]

[Ludovic Courtès]

branch: master
commit c9ae80a7576c659cb19ad3b919d8a89e9fd16f31
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jan 25 09:48:18 2018 +0100

    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(+)

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)