update-tokens ( tokens1 tokens2 -- tokens1 )


Vocabulary
oauth2

Inputs
tokens1an object
tokens2an object


Outputs
tokens1an object


Definition
USING: accessors kernel ;

IN: oauth2

: update-tokens ( tokens1 tokens2 -- tokens1 )
2dup expiry>> >>expiry drop access>> >>access ;