scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refresh window more often (i.e. too often)

This commit is contained in:
eknauel 2005-06-07 20:03:04 +00:00
parent f5c808e10a
commit 88c6250483
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/console.scm
View File

@ -38,7 +38,6 @@
(spawn (spawn
(lambda () (lambda ()
(let lp ((paint? #t)) (let lp ((paint? #t))
(debug-message "spawn-console-loop " paint?)
(select (select
(wrap (receive-rv pause-channel) (wrap (receive-rv pause-channel)
(lambda (ignore) (lambda (ignore)
@ -54,8 +53,10 @@
(else (else
(terminal-buffer-add-char terminal-buffer char) (terminal-buffer-add-char terminal-buffer char)
(if paint? (if paint?
(curses-paint-terminal-buffer (begin
terminal-buffer window)) (curses-paint-terminal-buffer
terminal-buffer window)
(wrefresh window)))
(lp paint?)))))))))) (lp paint?))))))))))
(define (pause-console-output console) (define (pause-console-output console)