(apply-transform) ( quot n -- )

Vocabulary

stack-checker.transforms

Inputs

quot	an object
n	an object

Outputs

None

Definition

USING: accessors combinators kernel namespaces sequences
stack-checker.backend stack-checker.errors
stack-checker.recursive-state stack-checker.values ;

IN: stack-checker.transforms

: (apply-transform) ( quot n -- )
    ensure-d {
        {
            [ dup literal-values? ]
            [
                dup empty?
                [ dup recursive-state get ] [
                    [ ] [ ~quotation~ map ]
                    [ first literal recursion>> ] tri
                ] if apply-literal-values-transform
            ]
        }
        {
            [ dup input-values? ]
            [ drop current-word get unknown-macro-input ]
        }
        [ drop current-word get bad-macro-input ]
    } cond ;