From 4a474176aa7401fa6da1de84d2df5816e33f65b8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 7 Jun 2021 10:14:14 +0100 Subject: Ensure there's data in backtraces --- scripts/guix-build-coordinator-agent.in | 7 +++++++ scripts/guix-build-coordinator.in | 7 +++++++ 2 files changed, 14 insertions(+) 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))))) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index c5c97fd..9760968 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -25,6 +25,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)))) + (use-modules (srfi srfi-1) (srfi srfi-19) (srfi srfi-37) -- cgit v1.2.3