twitter: Changed twitter-url to use >url

diff --git a/extra/twitter/twitter.factor b/extra/twitter/twitter.factor
index 300c3bfda0d2aba9173c75671dd1e3b0dd5d5615..043ec736298e67f89847df1112c4b8a1b4868a56 100644 (file)
--- a/extra/twitter/twitter.factor
+++ b/extra/twitter/twitter.factor
@@ -19,9 +19,9 @@ twitter-source [ "factor" ] initialize
         call
     ] with-scope ; inline
 
-: twitter-url ( string -- string' )
+: twitter-url ( string -- url )
     ssl-supported?
-    "https://api.twitter.com/" "http://api.twitter.com/" ? prepend ;
+    "https://api.twitter.com/" "http://api.twitter.com/" ? prepend >url ;
 
 PRIVATE>
 
@@ -33,7 +33,7 @@ PRIVATE>
     ] with-twitter-oauth ;
 
 : twitter-authorize-url ( token -- url )
-    "oauth/authorize" twitter-url >url
+    "oauth/authorize" twitter-url
         swap key>> "oauth_token" set-query-param ;
 
 : obtain-twitter-access-token ( request-token verifier -- access-token )