Răsfoiți Sursa

wild List.rev

Dan Korostelev 4 ani în urmă
părinte
comite
1092ea57d2
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      src/optimization/analyzerTexprTransformer.ml

+ 1 - 1
src/optimization/analyzerTexprTransformer.ml

@@ -979,7 +979,7 @@ and block_to_texpr_coroutine ctx bb vcontinuation vresult p =
 				end in
 				loop rest ((patterns,expr) :: cases_acc) !decls
 			| [] ->
-				cases_acc, decls
+				List.rev cases_acc, decls
 		in
 		loop statecases [] []
 	end in