check-update ( old new -- ? )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

old	an object
new	an object

Outputs

?

an object

Definition

USING: assocs kernel ;

IN: furnace.auth.providers.couchdb.private

: check-update ( old new -- ? )
    [
        2dup [ "email" of ] same? not [
            [ "email" of ] bi@
            [ drop "email" reservation-id unreserve-from-id ]
            [ nip "email" reserve ] 2bi
        ] [ 2drop t ] if
    ] [
        2dup [ "username" of ] same? not [
            [ "username" of ] bi@
            [ drop "username" reservation-id unreserve-from-id ]
            [ nip "username" reserve ] 2bi
        ] [ 2drop t ] if
    ] 2bi and ;