From 88c62504830cf36a826d013f8270c5a0d01e7ed5 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 7 Jun 2005 20:03:04 +0000 Subject: [PATCH] refresh window more often (i.e. too often) --- scheme/console.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scheme/console.scm b/scheme/console.scm index d2dc68b..31bd312 100644 --- a/scheme/console.scm +++ b/scheme/console.scm @@ -38,7 +38,6 @@ (spawn (lambda () (let lp ((paint? #t)) - (debug-message "spawn-console-loop " paint?) (select (wrap (receive-rv pause-channel) (lambda (ignore) @@ -54,8 +53,10 @@ (else (terminal-buffer-add-char terminal-buffer char) (if paint? - (curses-paint-terminal-buffer - terminal-buffer window)) + (begin + (curses-paint-terminal-buffer + terminal-buffer window) + (wrefresh window))) (lp paint?)))))))))) (define (pause-console-output console)