Franco Ponticelli преди 13 години
родител
ревизия
ddf78f6d91
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      genphp.ml

+ 2 - 2
genphp.ml

@@ -1769,8 +1769,8 @@ let generate_field ctx static f =
 			gen_function ctx (s_ident f.cf_name) fd f.cf_params p
 	| _ ->
 		if ctx.curclass.cl_interface then
-			match follow f.cf_type with
-			| TFun (args,r) ->
+			match follow f.cf_type, f.cf_kind with
+			| TFun (args,r), Method _ ->
 				print ctx "function %s(" (s_ident f.cf_name);
 				concat ctx ", " (fun (arg,o,t) ->
 					s_funarg ctx arg t p o;