check-fry ( quot -- quot )

Vocabulary

fry.private

Inputs

quot

an object

Outputs

quot

an object

Definition

USING: fry kernel locals.backend sequences sets ;

IN: fry.private

: check-fry ( quot -- quot )
    dup
    { load-local load-locals get-local drop-locals } intersect
    [ >r/r>-in-fry-error ] unless-empty ;