fold ( quot -- folded-quot )


Vocabulary
inverse

Inputs
quotan object


Outputs
folded-quotan object


Definition
USING: make sequences ;

IN: inverse

: fold ( quot -- folded-quot )
[ { } [ fold-word ] reduce % ] [ ] make ;