do not double-wrap empty blocks in mk_block. hope that won't break stuff, let's see what travis has to say · 42be1b96bf - Gogs

do not double-wrap empty blocks in mk_block. hope that won't break stuff, let's see what travis has to say

Dan Korostelev 11 years ago

parent

e8e1a16030

commit

42be1b96bf

1 changed files with 1 additions and 1 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 1
						
type.ml
							 
								View File
							
				@@ -328,7 +328,7 @@ let mk e t p = { eexpr = e; etype = t; epos = p }
			
				 let mk_block e =
			
				 	match e.eexpr with
			
				-	| TBlock (_ :: _) -> e
			
				+	| TBlock _ -> e
			
				 	| _ -> mk (TBlock [e]) e.etype e.epos
			
				 let mk_cast e t p = mk (TCast(e,None)) t p