2
0
Эх сурвалжийг харах

don't rush metadata argument typing (closes #5663)

Simon Krajewski 9 жил өмнө
parent
commit
7331f44288

+ 1 - 1
src/typing/typeload.ml

@@ -1825,7 +1825,7 @@ let check_global_metadata ctx meta f_add mpath tpath so =
 			List.iter (fun e ->
 				if Display.is_display_position (pos e) then begin
 					let e = Display.ExprPreprocessing.process_expr ctx.com e in
-					ignore(type_expr ctx e Value);
+					delay ctx PTypeField (fun _ -> ignore(type_expr ctx e Value));
 				end
 			) args
 		) meta