From 19448ce93aa585f7b15255b018e9b3b12efb7057 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 17 Apr 2012 22:15:37 +0900 Subject: [PATCH] Default terminal width of 80 (if no termio). --- lib/chibi/term/edit-line.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/term/edit-line.scm b/lib/chibi/term/edit-line.scm index e2972f00..64cabc9a 100644 --- a/lib/chibi/term/edit-line.scm +++ b/lib/chibi/term/edit-line.scm @@ -537,7 +537,7 @@ (terminal-width (get-key args 'terminal-width:)) (keymap (get-key args 'keymap: standard-keymap))) (lambda (in out) - (let* ((width (or terminal-width (get-terminal-width out))) + (let* ((width (or terminal-width (get-terminal-width out) 80)) (buf (make-buffer)) (done? #f) (return (lambda o (set! done? (if (pair? o) (car o) #t)))))