Просмотр исходного кода

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

Simon Krajewski 11 лет назад
Родитель
Сommit
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 =