(clear-megamorphic-cache) ( i array -- )

Vocabulary

tools.deploy.shaker

Inputs

i	an object
array	an object

Outputs

None

Definition

USING: kernel math sequences.private slots.private ;

IN: tools.deploy.shaker

: (clear-megamorphic-cache) ( i array -- )
    2dup 1 slot < [
        2dup [ f ] 2dip set-array-nth [ 1 + ] dip
        (clear-megamorphic-cache)
    ] [ 2drop ] if ;