Ensure COLUMNS is set
This commit is contained in:
parent
f9e6daad99
commit
acdedb075d
1 changed files with 3 additions and 0 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue