diff options
| -rw-r--r-- | build-aux/build-self.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index fdb974bde86..b0a427698fa 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm | |||
| @@ -169,6 +169,13 @@ build daemon, from within the generated build program." | |||
| 169 | ;; build output. | 169 | ;; build output. |
| 170 | (connect sock AF_UNIX build-output) | 170 | (connect sock AF_UNIX build-output) |
| 171 | 171 | ||
| 172 | (when (integer? proto) | ||
| 173 | ;; port->connection doesn't setup buffering, so | ||
| 174 | ;; do this here | ||
| 175 | (setvbuf (store-connection-socket store) | ||
| 176 | 'block | ||
| 177 | %default-store-connection-buffer-size)) | ||
| 178 | |||
| 172 | (display | 179 | (display |
| 173 | (and=> | 180 | (and=> |
| 174 | ;; Silence autoload warnings and the likes. | 181 | ;; Silence autoload warnings and the likes. |
