visit-replace ( ##replace -- )

Vocabulary
compiler.cfg.stacks.uninitialized.private

Definition

USING: accessors classes kernel math namespaces sequences ;

IN: compiler.cfg.stacks.uninitialized.private

: visit-replace ( ##replace -- )
    loc>> [ n>> ] [ class-of get ] bi 2dup length <
    [ [ 1 ] 2dip set-nth ] [ 2drop ] if ;