Fixed infinite loop in ebb_flow:reduce/2 on irreducible function/list pair.

src/ebb_flow.erl

@@ -176,7 +176,7 @@ reduce_left(FOp, LOp) ->
     LOut = ebb_prim:out_arity(LOp),
     case {LOut, LOut div FIn, LOut rem FIn} of
 	{0, 0, _} -> LOp;
-	{0, _, _} -> throw(badarg);
+	{_, 0, _} -> throw(badarg);
 	{_, 1, 0} -> pipe(LOp, FOp);
 	{_, N, 0} -> reduce_right(
 		       FOp, pipe(LOp, par(lists:duplicate(N, FOp))));
@@ -190,7 +190,7 @@ reduce_right(FOp, LOp) ->
     LOut = ebb_prim:out_arity(LOp),
     case {LOut, LOut div FIn, LOut rem FIn} of
 	{0, 0, _} -> LOp;
-	{0, _, _} -> throw(badarg);
+	{_, 0, _} -> throw(badarg);
 	{_, 1, 0} -> pipe(LOp, FOp);
 	{_, N, 0} -> reduce_left(
 		       FOp, pipe(LOp, par(lists:duplicate(N, FOp))));