Fix load error

db4
Slava Pestov 2008-09-23 16:11:11 -05:00
parent d9d5dcc7a6
commit 9bd6618707
1 changed files with 5 additions and 7 deletions

View File

@ -148,13 +148,6 @@ M: string >url
]
[ url-decode >>anchor ] bi* ;
<PRIVATE
: unparse-username-password ( url -- )
dup username>> dup [
% password>> [ ":" % % ] when* "@" %
] [ 2drop ] if ;
: protocol-port ( protocol -- port )
{
{ "http" [ 80 ] }
@ -166,6 +159,11 @@ M: string >url
<PRIVATE
: unparse-username-password ( url -- )
dup username>> dup [
% password>> [ ":" % % ] when* "@" %
] [ 2drop ] if ;
: url-port ( url -- port/f )
[ port>> ] [ port>> ] [ protocol>> protocol-port ] tri =
[ drop f ] when ;