Browse Source

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

Simon Krajewski 11 years ago
parent
commit
4320884ca7
1 changed files with 1 additions and 1 deletions
  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 =