steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/urls/urls.factor
View File

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