call-transformer ( stack quot -- newquot )

Vocabulary

stack-checker.transforms

Inputs

stack	an object
quot	an object

Outputs

newquot

an object

Definition

USING: continuations kernel namespaces sequences
stack-checker.errors stack-checker.values ;

IN: stack-checker.transforms

: call-transformer ( stack quot -- newquot )
    [ with-datastack [ length 1 assert= ] [ first ] bi ] 2curry 
    [
        error-continuation get current-word get
        transform-expansion-error
    ] recover ;