Ensure COLUMNS is set

This commit is contained in:
Christopher Baines 2025-02-03 13:06:45 +01:00
parent f9e6daad99
commit acdedb075d

View file

@ -137,6 +137,9 @@
(setvbuf (current-output-port) 'line)
(setvbuf (current-error-port) 'line)
(unless (getenv "COLUMNS")
(setenv "COLUMNS" "128"))
(let ((opts (parse-options (cdr (program-arguments)))))
(when (assq-ref opts 'repl)
((@@ (ice-9 top-repl) call-with-sigint)