From 66f5808b81b1df84bc57c4f7b9d487201bc162fb Mon Sep 17 00:00:00 2001
From: forsyth <forsyth@vitanuova.com>
Date: Mon, 2 Aug 2010 14:49:50 +0100
Subject: 20100802-1449

---
 appl/acme/acme/bin/src/win.b | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'appl/acme')

diff --git a/appl/acme/acme/bin/src/win.b b/appl/acme/acme/bin/src/win.b
index 857539cf..a470820a 100644
--- a/appl/acme/acme/bin/src/win.b
+++ b/appl/acme/acme/bin/src/win.b
@@ -625,25 +625,27 @@ addtype(c : int, p0 : int, b : array of byte, nb : int, nr : int)
 
 sendtype(fd0 : ref FD, raw : int)
 {
-	i, n, nr : int;
-
 	while(ntypebreak){
 		brkc := 0;
-		for(i=0; i<ntypeb; i++)
+		i := 0;
+		while(i<ntypeb){
 			if(typing[i]==byte '\n' || typing[i]==byte 16r04){
-				n = i + (typing[i] == byte '\n');
+				n := i + (typing[i] == byte '\n');
 				i++;
 				if(write(fd0, typing, n) != n)
 					error("sending to program");
-				nr = nrunes(typing, i);
+				nr := nrunes(typing, i);
 				if (!raw)
 					q.p += nr;
 				ntyper -= nr;
 				ntypeb -= i;
 				typing[0:] = typing[i:i+ntypeb];
+				i = 0;
 				ntypebreak--;
 				brkc = 1;
-			}
+			}else
+				i++;
+		}
 		if (!brkc) {
 			fprint(stdout, "no breakchar\n");
 			ntypebreak = 0;
-- 
cgit v1.2.3