Move spawn of result buffer suveillant to INIT-WINODWS!

2005-10-11 15:41:42 +00:00 · 2005-10-11 15:41:42 +00:00 · 60284755e2
parent e511c905cd
commit 60284755e2
1 changed files with 3 additions and 3 deletions
--- a/scheme/win.scm
+++ b/scheme/win.scm
@ -87,6 +87,8 @@
  (delwin (app-window-curses-win window)))

 (define (init-windows!)
+  (spawn-result-buffer-surveillant)
+
  (set! *bar-1*
 	(make-app-window 1 1 
 			 (- (COLS) 2) 2))
@ -162,5 +164,3 @@
  (let ((answer-channel (make-channel)))
    (send result-buffer-changes-subscribers answer-channel)
    (receive-rv answer-channel)))
-
-(spawn-result-buffer-surveillant)