소스 검색

check arguments of calls to Dynamic against Dynamic so they are not missed

Simon Krajewski 11 년 전
부모
커밋
4320884ca7
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      codegen.ml

+ 1 - 1
codegen.ml

@@ -1637,7 +1637,7 @@ module UnificationCallback = struct
 		| TFun(args,_) ->
 			check_call_params f el args
 		| _ ->
-			el
+			List.map (fun e -> f e t_dynamic) el
 
 	let rec run f e =
 		let f e t =