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

Vocabulary

logging

Inputs

quot	an object
word	an 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 @ ] recover ] ;