Fix load error

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 19bae087afee6fad1daa571b0faa905f3686c5a8..e35292e9d7b7acc3bbff748d1ccd9f7bd615d82a 100644 (file)
--- a/basis/urls/urls.factor
+++ b/basis/urls/urls.factor
@@ -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 ;