diff options
| -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) |