define-partial-eval ( word quot n -- )

Vocabulary

compiler.tree.propagation.transforms

Inputs

word	an object
quot	an object
n	an object

Outputs

None

Definition

USING: accessors compiler.tree.propagation.info generalizations
kernel sequences sequences.generalizations words ;

IN: compiler.tree.propagation.transforms

:: define-partial-eval ( word quot n -- )
    word [
        in-d>> n tail* [ value-info ] map dup
        [ literal?>> ] all? [
            [ literal>> ] map n firstn quot call dup
            [ [ n ndrop ] prepose dup word check-effect ] when
        ] [ drop f ] if
    ] "custom-inlining" set-word-prop ;