fold-word ( stack word -- stack )


Vocabulary
inverse

Inputs
stackan object
wordan object


Outputs
stackan object


Definition
USING: continuations kernel make quotations sequences ;

IN: inverse

: fold-word ( stack word -- stack )
2dup enough?
[ 1quotation with-datastack ]
[ [ [ literalize , ] each ] [ , ] bi* { } ] if ;