diff options
Diffstat (limited to 'scripts/guix-build-coordinator-agent.in')
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index f75aaca..c863e9e 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -133,6 +133,13 @@ (setvbuf (current-output-port) 'line) (setvbuf (current-error-port) 'line) +(let ((columns (string->number (or (getenv "COLUMNS") "")))) + (setenv "COLUMNS" + (number->string + (if columns + (max 256 columns) + 256)))) + (let ((opts (parse-options %options %option-defaults (cdr (program-arguments))))) |