(watch-vars) ( word vars quot -- newquot )

Vocabulary

tools.annotations.private

Inputs

word	an object
vars	an object
quot	an object

Outputs

newquot

an object

Definition

USING: assocs inspector io kernel namespaces prettyprint ;

IN: tools.annotations.private

: (watch-vars) ( word vars quot -- newquot )
    [
        [
            [ [ "--- Entering: " write ] ] dip
            [ . "--- Variable values:" print ] curry compose
        ] dip [ [ dup get ] H{ } map>assoc describe ] curry
        compose
    ] dip compose [ with-output>error ] curry ;