Don't listen in listen

Author: phischu

libraries/common/io/network.effekt

@@ -24,8 +24,8 @@ def close(handle: Connection): Unit / Exception[IOError] = {
 /// A tcp listener. Should not be inspected.
 type Listener = Int
 
-def listen(host: String, port: Int, backlog: Int): Listener / Exception[IOError] =
-  internal::checkResult(internal::listen(host, port, backlog))
+def listen(host: String, port: Int): Listener / Exception[IOError] =
+  internal::checkResult(internal::listen(host, port))
 
 def accept(listener: Listener, handler: Connection => Unit at {io, async, global}): Unit / Exception[IOError] = {
   internal::checkResult(internal::accept(listener, handler)); ()
@@ -73,9 +73,9 @@ namespace internal {
       ret void
     """
 
-  extern async def listen(host: String, port: Int, backlog: Int): Int =
+  extern async def listen(host: String, port: Int): Int =
     llvm """
-      call void @c_tcp_listen(%Pos ${host}, %Int ${port}, %Int ${backlog}, %Stack %stack)
+      call void @c_tcp_listen(%Pos ${host}, %Int ${port}, %Stack %stack)
       ret void
     """
 

libraries/llvm/io.c

@@ -317,7 +317,7 @@ void c_tcp_close(Int handle, Stack stack) {
     uv_close(uv_handle, c_tcp_close_cb);
 }
 
-void c_tcp_listen(String host, Int port, Int backlog, Stack stack) {
+void c_tcp_listen(String host, Int port, Stack stack) {
     // TODO make non-async
     char* host_str = c_bytearray_into_nullterminated_string(host);
     erasePositive(host);
@@ -349,13 +349,6 @@ void c_tcp_listen(String host, Int port, Int backlog, Stack stack) {
         return;
     }
 
-    result = uv_listen((uv_stream_t*)tcp_handle, backlog, NULL);
-    if (result < 0) {
-        uv_close((uv_handle_t*)tcp_handle, (uv_close_cb)free);
-        resume_Int(stack, result);
-        return;
-    }
-
     resume_Int(stack, (int64_t)tcp_handle);
 }