Przeglądaj źródła

Changed ebb_run:simpl/1 to push through switch operations.

Paul Downen 14 lat temu
rodzic
commit
9d0bfe0e36
1 zmienionych plików z 2 dodań i 0 usunięć
  1. 2 0
      src/ebb_run.erl

+ 2 - 0
src/ebb_run.erl

@@ -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;