Commits

camlspotter committed 6a5fc94

small fix

  • Participants
  • Parent commits e469ad1

Comments (0)

Files changed (1)

File type_ctxt.ml

   let integer c ((_tag : 'itag), x) : 'itag integer typ = P.unsafe ^$ integer_type c x
   let float c : float typ = P.unsafe ^$ float_type c
   let double c : double typ = P.unsafe ^$ double_type c
-  let function_ : (ret : 'ret typ) (args : 'args typs) : ('args -> 'ret) typ =
+  let function_ (ret : 'ret typ) (args : 'args typs) : ('args -> 'ret) typ =
     P.unsafe ^$ function_type !<ret (P.List.to_array args)
   let var_arg_function (ret : 'ret typ) (args : 'args typs) : ('args -> dots -> 'ret) typ = 
     P.unsafe ^$ var_arg_function_type !<ret (P.List.to_array args)