error-logging-quot ( quot word -- quot' )


Vocabulary
logging

Inputs
quotan object
wordan object


Outputs
quot'an object


Definition
USING: continuations effects kernel ;

IN: logging

: error-logging-quot ( quot word -- quot' )
dup stack-effect stack-balancer [ [ log-error ] curry ] dip
compose [ recover ] 2curry ;