trace-quot ( word effect quot str -- quot' )

Vocabulary

tools.annotations.private

Inputs

word	an object
effect	an object
quot	an object
str	an object

Outputs

quot'

an object

Definition

USING: assocs generalizations io kernel prettyprint sequences
sequences.generalizations ;

IN: tools.annotations.private

:: trace-quot ( word effect quot str -- quot' )
    effect quot call :> values values length :> n [
        [
            "--- " write str write bl word . n ndup
            n narray values swap zip simple-table. flush
        ] with-output>error
    ] ; inline