TUPLE: shuffle-node { effect effect } ;
M: shuffle-node pprint* effect>> effect>string text ;
-
+
: (shuffle-effect) ( in out #shuffle -- effect )
mapping>> '[ _ at ] map [ >array ] bi@ <effect> ;
compute-def-use
remove-dead-code
compute-def-use
- optimize-modular-arithmetic
+ optimize-modular-arithmetic
] with-scope ;
: inlined? ( quot seq/word -- ? )