guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

base: Buffer input pipe of the 'evaluate' process.

Browse source 
* src/cuirass/base.scm (read/non-blocking): Add 'setvbuf' call.
This commit is contained in:
Ludovic Courtès 2018-01-25 09:48:18 +01:00
parent 9c96852c60
commit c9ae80a757
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/cuirass/base.scm
View file

@ -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)