assign-values ( alist -- alist' )

Vocabulary

bare.private

Inputs

alist

an object

Outputs

alist'

an object

Definition

USING: assocs kernel math ;

IN: bare.private

: assign-values ( alist -- alist' )
    0 swap [ rot or dup 1 + -rot ] assoc-map nip ;