diff options
| author | Christopher Baines <mail@cbaines.net> | 2026-03-02 12:28:45 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2026-03-11 15:31:06 +0000 |
| commit | c56f19efc66c8970e23c4cc4778fe6fcd2574994 (patch) | |
| tree | 72d7c088db1358ace2a21d77e2d072c2b4f37f65 /build-aux | |
| parent | ba35edb100b3383bd1b9a89f92ded74ae40e5357 (diff) | |
compile-as-derivation: Buffer the current-error-port.
To avoid one character per syscall output from within the build procedure.
* build-aux/compile-as-derivation.scm: Buffer the current-error-port.
Change-Id: I7725ef0cb1f3ad4e9f5fdd284734f376fd57b253
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/compile-as-derivation.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/build-aux/compile-as-derivation.scm b/build-aux/compile-as-derivation.scm index d945a8c79c6..9da13893b51 100644 --- a/build-aux/compile-as-derivation.scm +++ b/build-aux/compile-as-derivation.scm @@ -41,6 +41,10 @@ (match (command-line) ((program source) + ;; The build procedure outputs to this port, so setup buffering to avoid + ;; one char per syscall. + (setvbuf (current-error-port) 'line) + (with-error-handling (with-store store (let* ((script (string-append source "/build-aux/build-self.scm")) |