stack-balancer ( effect -- quot )


Vocabulary
logging

Inputs
effectan object


Outputs
quotan object


Definition
USING: accessors generalizations kernel quotations sequences ;

IN: logging

: stack-balancer ( effect -- quot )
[ in>> length [ ndrop ] curry ]
[ out>> length f <repetition> >quotation ] bi append ;