|
@@ -64,6 +64,8 @@ simpl(#pipe{ops=Inside}) ->
|
|
|
flatten(ebb_prim:pipe(simpl_pipe([ simpl(O) || O <- Inside ])));
|
|
|
simpl(#par{ops=Inside}) ->
|
|
|
flatten(ebb_prim:par(simpl_par([ simpl(O) || O <- Inside ])));
|
|
|
+simpl(#switch{map=Map}) ->
|
|
|
+ ebb_prim:switch([ {Tag, simpl(Op)} || {Tag, Op} <- Map ]);
|
|
|
simpl(Op) ->
|
|
|
case ebb_prim:is_operation(Op) of
|
|
|
true -> Op;
|