remain-compiled ( old new -- old new )

Vocabulary

tools.deploy.shaker

Inputs

old	?
new	?

Outputs

old	?
new	?

Word description

Quotations which were formerly compiled must remain compiled.

Definition

USING: kernel quotations sequences ;

IN: tools.deploy.shaker

: remain-compiled ( old new -- old new )
    2dup [
        2dup
        [ quotation-compiled? ] [ quotation-compiled? not ] bi*
        and [ nip jit-compile ] [ 2drop ] if
    ] 2each ;