if ;
: fold ( quot -- folded-quot )
- [ { } [ fold-word ] reduce % ] [ ] make ;
+ [ { } [ fold-word ] reduce % ] [ ] make ;
ERROR: no-recursive-inverse ;
{ [ word? ] [ primitive? not ] [
{ "inverse" "math-inverse" "pop-inverse" }
[ word-prop ] with any? not
- ] } 1&& ;
+ ] } 1&& ;
: flatten ( quot -- expanded )
[