log-stack ( n word level -- )


Vocabulary
logging

Inputs
nan object
wordan object
levelan object


Outputs
None

Definition
USING: generalizations kernel logging.private namespaces
sequences.generalizations ;

IN: logging

: log-stack ( n word level -- )
log-service get
[ [ [ ndup ] keep narray stack>message ] 2dip log-message ]
[ 3drop ] if ; inline