     ] make-token-params
     sign-params ;
 
-: build-auth-string ( params -- string )
+: build-auth-string ( oauth-params -- string )
     [ [ present url-encode-full ] bi@ "\"" "\"" surround "=" glue ] { } assoc>map
     ", " join "OAuth realm=\"\", " prepend ;
 

        ] bi
    ] H{ } make ; inline

:: sign-params ( url request-method consumer-token request-token params -- signed-params )
    params sort-keys :> params
    url request-method params signature-base-string :> sbs
    consumer-token secret>> request-token dup [ secret>> ] when hmac-key :> key
    sbs key sha1 hmac-bytes >base64 >string :> signature
    params { "oauth_signature" signature } prefix ;

: extract-user-data ( assoc -- assoc' )
    [


<PRIVATE

:: signed-oauth-request-params ( request params -- oauth-params )
    request url>>
    request method>>
    params consumer-token>>
