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


Vocabulary
logging

Inputs
quotan object
wordan object
levelan object


Outputs
quot'an object


Definition
USING: kernel ;

IN: logging

: call-logging-quot ( quot word level -- quot' )
[ "called" ] 2dip [ log-message ] 3curry prepose ;