io.sockets: change protocol-port to handle ``f`` on all platforms.

diff --git a/basis/io/sockets/sockets-tests.factor b/basis/io/sockets/sockets-tests.factor
index 64b6d88a63de1d4e1c4258986a8c2f2663db6d1c..7adcc93cb64a00f4e3963f0ebf8765ad96b06991 100644 (file)
--- a/basis/io/sockets/sockets-tests.factor
+++ b/basis/io/sockets/sockets-tests.factor
@@ -171,3 +171,4 @@ os unix? [
 [ ] [ f 0 <inet6> <datagram> dispose ] unit-test
 
 [ 80 ] [ "http" protocol-port ] unit-test
+[ f ] [ f protocol-port ] unit-test

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 8afb4388e4c25042e62a626b9bd001c92721e2ac..4e5c3a72a4901871ff485896f81edc5182d008a5 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -465,7 +465,7 @@ M: invalid-local-address summary
     ] dip with-variable ; inline
 
 : protocol-port ( protocol -- port )
-    f getservbyname [ port>> htons ] [ f ] if* ;
+    [ f getservbyname [ port>> htons ] [ f ] if* ] [ f ] if* ;
 
 {
     { [ os unix? ] [ "io.sockets.unix" require ] }