Browse Source

wild List.rev

Dan Korostelev 4 năm trước cách đây
mục cha
commit
1092ea57d2
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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