From 60284755e285cb7b104e14ecc48afa70c264ab91 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 11 Oct 2005 15:41:42 +0000
Subject: [PATCH] Move spawn of result buffer suveillant to INIT-WINODWS!

---
 scheme/win.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/win.scm b/scheme/win.scm
index b5c8839..f945b1f 100644
--- 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))
@@ -161,6 +163,4 @@
 (define (result-buffer-other-object-has-focus-rv)
   (let ((answer-channel (make-channel)))
     (send result-buffer-changes-subscribers answer-channel)
-    (receive-rv answer-channel)))
-
-(spawn-result-buffer-surveillant)
+    (receive-rv answer-channel)))
\ No newline at end of file