|
@@ -599,7 +599,7 @@ and gen_call ctx e el =
|
|
(match ctx.curclass.cl_super with
|
|
(match ctx.curclass.cl_super with
|
|
| None -> assert false
|
|
| None -> assert false
|
|
| Some (c,_) ->
|
|
| Some (c,_) ->
|
|
- print ctx "parent::%s(" (name);
|
|
|
|
|
|
+ print ctx "parent::%s(" (s_ident name);
|
|
concat ctx "," (gen_value ctx) params;
|
|
concat ctx "," (gen_value ctx) params;
|
|
spr ctx ")";
|
|
spr ctx ")";
|
|
);
|
|
);
|