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


Vocabulary
logging

Inputs
quotan object
wordan object
levelan object


Outputs
quot'an object


Definition
USING: kernel ;

IN: logging

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