diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-25 09:48:18 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-25 09:48:18 +0100 |
commit | c9ae80a7576c659cb19ad3b919d8a89e9fd16f31 (patch) | |
tree | 12d0d7be4257e8f24cfe6f3df13676bc4e9f48de /src/cuirass/base.scm | |
parent | 9c96852c6046b6c4d1b2bd1bc3002e134a4bd12b (diff) | |
download | cuirass-c9ae80a7576c659cb19ad3b919d8a89e9fd16f31.tar cuirass-c9ae80a7576c659cb19ad3b919d8a89e9fd16f31.tar.gz |
base: Buffer input pipe of the 'evaluate' process.
* src/cuirass/base.scm (read/non-blocking): Add 'setvbuf' call.
Diffstat (limited to 'src/cuirass/base.scm')
-rw-r--r-- | src/cuirass/base.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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) |