Skip to content

Commit 6a247df

Browse files
committed
protocols: fix typo, remove error
1 parent 764033b commit 6a247df

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

basis/protocols/protocols.factor

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,8 +3,6 @@
33
USING: combinators kernel sequences ;
44
IN: protocols
55

6-
ERROR: unknown-protocol protocol ;
7-
86
: lookup-protocol ( string -- entry )
97
{
108
{ "ftp" [ { 21 f { "tcp" } } ] }
@@ -48,4 +46,4 @@ ERROR: unknown-protocol protocol ;
4846

4947
: lookup-protocol-port ( string -- port ) lookup-protocol first ;
5048
: lookup-protocol-secure ( string -- ? ) lookup-protocol second ;
51-
: lookup-protocol-protos ( string -- port ) lookup-protocol second ;
49+
: lookup-protocol-protos ( string -- port ) lookup-protocol third ;

0 commit comments

Comments
 (0)