|
@@ -1292,6 +1292,8 @@ let configure gen =
|
|
|
write w " )"
|
|
|
| TCall ({ eexpr = TLocal( { v_name = "__java__" } ) }, [ { eexpr = TConst(TString(s)) } ] ) ->
|
|
|
write w s
|
|
|
+ | TCall ({ eexpr = TLocal( { v_name = "__java__" } ) }, { eexpr = TConst(TString(s)) } :: tl ) ->
|
|
|
+ Codegen.interpolate_code gen.gcon s tl (write w) (expr_s w) e.epos
|
|
|
| TCall ({ eexpr = TLocal( { v_name = "__lock__" } ) }, [ eobj; eblock ] ) ->
|
|
|
write w "synchronized(";
|
|
|
expr_s w eobj;
|