From 19de5a66cd2d52f4193f5a7728dfb3022be1d4e0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Aug 1993 21:32:21 +0000
Subject: [PATCH] Eliminate random delay, which should no longer be needed now
 that window initialization sequence is fixed.

---
 v7/src/edwin/debug.scm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index b6f11ec7e..90723fd8d 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.12 1993/08/16 19:00:03 jbank Exp $
+;;;	$Id: debug.scm,v 1.13 1993/08/17 21:32:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -1115,8 +1115,6 @@ The buffer below describes the current subproblem or reduction.
 		   (newline port))))))
 	  (insert-blines browser 0 blines)
 	  (buffer-put! buffer 'THREAD break-thread) ;  adds thread
-	  (wait-processor-time 100)   ;  lose because the synch of new
-	                              ; screen stuff is off
 	  (select-screen debug-screen)
 	  (select-window (screen-window0 debug-screen))
 	  (if (null? blines)
@@ -1124,13 +1122,6 @@ The buffer below describes the current subproblem or reduction.
 	      (select-bline (car blines)))
 	  buffer)))))
 
-;;;kludge to deal with the screen synch 
-(define (wait-processor-time ticks)
-  (let ((end (+ (process-time-clock) ticks)))
-    (let wait-loop ()
-      (if (< (process-time-clock) end)
-	  (wait-loop)))))
-
 (define (find-debugger-buffers)
   (list-transform-positive (buffer-list)
     (let ((debugger-mode (ref-mode-object continuation-browser)))
-- 
2.25.1