(reserve-multiple) ( hash keys made -- ? )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

hash	an object
keys	an object
made	an object

Outputs

?

an object

Definition

USING: assocs kernel sequences ;

IN: furnace.auth.providers.couchdb.private

:: (reserve-multiple) ( hash keys made -- ? )
    keys empty?
    [ t ] [
        keys first hash at keys first reserve [
            made push
            hash keys rest-slice made (reserve-multiple)
        ] [ made [ unreserve ] each f ] if*
    ] if ;