1 USING: macros quotations math math.functions math.trig
2 sequences.deep kernel make fry combinators grouping ;
6 ! MACRO: deep-cleave-quots ( seq -- quot )
7 ! [ [ quotation? ] deep-filter ]
8 ! [ [ dup quotation? [ drop , ] when ] deep-map ]
9 ! bi '[ _ cleave _ bake ] ;
11 : make-matrix ( quot width -- matrix )
12 [ { } make ] dip group ; inline