We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 764033b commit 6a247dfCopy full SHA for 6a247df
basis/protocols/protocols.factor
@@ -3,8 +3,6 @@
3
USING: combinators kernel sequences ;
4
IN: protocols
5
6
-ERROR: unknown-protocol protocol ;
7
-
8
: lookup-protocol ( string -- entry )
9
{
10
{ "ftp" [ { 21 f { "tcp" } } ] }
@@ -48,4 +46,4 @@ ERROR: unknown-protocol protocol ;
48
46
49
47
: lookup-protocol-port ( string -- port ) lookup-protocol first ;
50
: lookup-protocol-secure ( string -- ? ) lookup-protocol second ;
51
-: lookup-protocol-protos ( string -- port ) lookup-protocol second ;
+: lookup-protocol-protos ( string -- port ) lookup-protocol third ;
0 commit comments