output-logging-quot ( quot word level -- quot' )


Vocabulary
logging

Inputs
quotan object
wordan object
levelan object


Outputs
quot'an object


Definition
USING: kernel ;

IN: logging

: output-logging-quot ( quot word level -- quot' )
[ [ output# ] keep ] dip [ log-stack ] 3curry compose ;