io.ports: move the wait-for-port here.

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index 69d4d9c377384e19a2a5ee4a1428973202fd218c..1b2cbc4455df4d28353631dd4d2e4761635c2260 100644 (file)
--- a/basis/io/backend/unix/unix.factor
+++ b/basis/io/backend/unix/unix.factor
@@ -78,9 +78,6 @@ M: unix wait-for-fd
         "I/O" suspend [ io-timeout ] when
     ] if ;
 
-: wait-for-port ( port event -- )
-    '[ handle>> _ wait-for-fd ] with-timeout ;
-
 ! Some general stuff
 
 M: fd refill

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 6194e6c993b12d9a7c9fb4579836cfa0160d2225..c83d1429c07caae6cd433cbf7382b87a25e390ee 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -31,6 +31,9 @@ INSTANCE: input-port file-reader
 : <input-port> ( handle -- input-port )
     input-port <buffered-port> ; inline
 
+: wait-for-port ( port event -- )
+    '[ handle>> _ wait-for-fd ] with-timeout ;
+
 HOOK: (wait-to-read) io-backend ( port -- )
 
 : wait-to-read ( port -- eof? )