Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Default terminal width of 80 (if no termio).

Browse source
This commit is contained in:
Alex Shinn 2012-04-17 22:15:37 +09:00
parent 56322d632a
commit 19448ce93a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/term/edit-line.scm
View file

@ -537,7 +537,7 @@
(terminal-width (get-key args 'terminal-width:)) (terminal-width (get-key args 'terminal-width:))
(keymap (get-key args 'keymap: standard-keymap))) (keymap (get-key args 'keymap: standard-keymap)))
(lambda (in out) (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)) (buf (make-buffer))
(done? #f) (done? #f)
(return (lambda o (set! done? (if (pair? o) (car o) #t))))) (return (lambda o (set! done? (if (pair? o) (car o) #t)))))