update to new communications syntax

R=gri
OCL=15417
CL=15417
diff --git a/doc/progs/server.go b/doc/progs/server.go
index 00bc3b9..ea08978 100644
--- a/doc/progs/server.go
+++ b/doc/progs/server.go
@@ -13,7 +13,7 @@
 
 func Run(op *BinOp, request *Request) {
 	result := op(request.a, request.b);
-	request.replyc -< result;
+	request.replyc <- result;
 }
 
 func Server(op *BinOp, service *chan *Request) {
@@ -38,7 +38,7 @@
 		req.a = i;
 		req.b = i + N;
 		req.replyc = new(chan int);
-		adder -< req;
+		adder <- req;
 	}
 	for i := N-1; i >= 0; i-- {   // doesn't matter what order
 		if <-reqs[i].replyc != N + 2*i {
diff --git a/doc/progs/server1.go b/doc/progs/server1.go
index 9f6c709..69bf22d 100644
--- a/doc/progs/server1.go
+++ b/doc/progs/server1.go
@@ -13,14 +13,13 @@
 
 func Run(op *BinOp, request *Request) {
 	result := op(request.a, request.b);
-	request.replyc -< result;
+	request.replyc <- result;
 }
 
 func Server(op *BinOp, service *chan *Request, quit *chan bool) {
 	for {
-		var request *Request;
 		select {
-		case request <- service:
+		case request := <-service:
 			go Run(op, request);  // don't wait for it
 		case <-quit:
 			return;
@@ -44,12 +43,12 @@
 		req.a = i;
 		req.b = i + N;
 		req.replyc = new(chan int);
-		adder -< req;
+		adder <- req;
 	}
 	for i := N-1; i >= 0; i-- {   // doesn't matter what order
 		if <-reqs[i].replyc != N + 2*i {
 			print("fail at ", i, "\n");
 		}
 	}
-	quit -< true;
+	quit <- true;
 }
diff --git a/doc/progs/sieve.go b/doc/progs/sieve.go
index 60760cf..2ee3bb7 100644
--- a/doc/progs/sieve.go
+++ b/doc/progs/sieve.go
@@ -7,7 +7,7 @@
 // Send the sequence 2, 3, 4, ... to channel 'ch'.
 func Generate(ch *chan int) {
 	for i := 2; ; i++ {
-		ch -< i  // Send 'i' to channel 'ch'.
+		ch <- i  // Send 'i' to channel 'ch'.
 	}
 }
 
@@ -17,7 +17,7 @@
 	for {
 		i := <-in  // Receive value of new variable 'i' from 'in'.
 		if i % prime != 0 {
-			out -< i  // Send 'i' to channel 'out'.
+			out <- i  // Send 'i' to channel 'out'.
 		}
 	}
 }
diff --git a/doc/progs/sieve1.go b/doc/progs/sieve1.go
index 2d6e069..d1c3c72 100644
--- a/doc/progs/sieve1.go
+++ b/doc/progs/sieve1.go
@@ -9,7 +9,7 @@
 	ch := new(chan int);
 	go func(ch *chan int){
 		for i := 2; ; i++ {
-			ch -< i
+			ch <- i
 		}
 	}(ch);
 	return ch;
@@ -21,7 +21,7 @@
 	go func(in *chan int, out *chan int, prime int) {
 		for {
 			if i := <-in; i % prime != 0 {
-				out -< i
+				out <- i
 			}
 		}
 	}(in, out, prime);
@@ -34,7 +34,7 @@
 		ch := Generate();
 		for {
 			prime := <-ch;
-			out -< prime;
+			out <- prime;
 			ch = Filter(ch, prime);
 		}
 	}(out);