Pass :hint-affinity to create-socket when calling .listen

src/core/IO/Socket/Async.pm6

@@ -166,11 +166,11 @@ my class IO::Socket::Async {
         $!close-vow.keep(True);
     }
 
-    sub create-socket(Bool :$listening = False, :$scheduler = $*SCHEDULER --> Promise) {
+    sub create-socket(Bool :$listening = False, :$scheduler = $*SCHEDULER, Bool :$hint-affinity = False --> Promise) {
         my Promise $p .= new;
         my $v = $p.vow;
         nqp::asyncsocket(
-            $scheduler.queue,
+            $scheduler.queue(:$hint-affinity),
             -> Mu \socket, Mu \err {
                 if err {
                     $v.break: err;
@@ -244,7 +244,7 @@ my class IO::Socket::Async {
         method tap(&emit, &done, &quit, &tap --> ListenSocket) {
             my $lock := Lock::Async.new;
             my $tap;
-            my $VMIO = await create-socket(:listening, :$!scheduler);
+            my $VMIO = await create-socket(:listening, :$!scheduler, :hint-affinity);
             my int $finished = 0;
             my Promise $socket-host .= new;
             my Promise $socket-port .= new;