From 51e7d93f630b34bf7df19adca2ac058c810e7571 Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Tue, 30 Jan 2018 15:11:42 +0000
Subject: [PATCH] attempted to reorganize listen: to listen:do:

---
 moo/kernel/Socket.moo | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/moo/kernel/Socket.moo b/moo/kernel/Socket.moo
index 76ba88b..e6a61bc 100644
--- a/moo/kernel/Socket.moo
+++ b/moo/kernel/Socket.moo
@@ -239,7 +239,7 @@ class Socket(Object) from 'sck'
 	method(#primitive) open(domain, type, proto).
 	method(#primitive) _close.
 	method(#primitive) bind: addr.
-	method(#primitive) listen: backlog.
+	method(#primitive) _listen: backlog.
 	method(#primitive) accept: addr.
 	method(#primitive) _connect: addr.
 	method(#primitive) _socketError.
@@ -279,7 +279,7 @@ extend Socket
 			## this primitive method may return failure. 
 			## but ignore it here.
 			if (self.insem notNil) 
-			{ 
+			{
 				System unsignal: self.insem;
 				       removeAsyncSemaphore: self.insem.
 				self.insem := nil.
@@ -296,6 +296,13 @@ extend Socket
 		}
 	}
 
+	method listen: backlog do: acceptBlock
+	{
+		self.inputAction := acceptBlock.
+		self watchInput.
+		^self _listen: backlog.
+	}
+
 	method connectTo: target do: connectBlock
 	{
 		| s1 s2 sa |
@@ -304,7 +311,7 @@ extend Socket
 		s2 := Semaphore new.
 
 		sa := [:sem | 
-		
+
 			| connected |
 
 			connected := false.
@@ -574,9 +581,13 @@ error -> exception
 				s connectTo: (SocketAddress fromString: '127.0.0.1:9999') do: conact.
 
 				s2 := Socket domain: Socket.Domain.INET type: Socket.Type.STREAM.
-				s2 inputAction: accact.
 				s2 bind: (SocketAddress fromString: '0.0.0.0:9998').
-				s2 listen: 10; watchInput.
+				##s2 inputAction: accact.
+				###s2 listen: 10; watchInput.
+				s2 listen: 10 do: accact.
+
+### when there is an exception something is not right....
+Exception signal: 'XXXXXXXXXX'.
 
 				while (true)
 				{