infer-<tuple-boa> ( -- )

Vocabulary

stack-checker.known-words

Inputs

None

Outputs

None

Definition

USING: accessors arrays classes.tuple.private effects kernel
math sequences stack-checker.backend stack-checker.values ;

IN: stack-checker.known-words

: infer-<tuple-boa> ( -- )
    \ <tuple-boa> peek-d literal value>> second 1 +
    "obj" <array> { tuple } <effect> apply-word/effect ;