From 9bd661870763bb86c9e78415bdbd49782ae2cfba Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 23 Sep 2008 16:11:11 -0500
Subject: [PATCH] Fix load error

---
 basis/urls/urls.factor | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/basis/urls/urls.factor b/basis/urls/urls.factor
index 19bae087af..e35292e9d7 100644
--- 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 ;