|
@@ -364,6 +364,12 @@ let rec gen_call ctx e el in_value =
|
|
spr ctx ")";
|
|
spr ctx ")";
|
|
| TLocal { v_name = "__js__" }, [{ eexpr = TConst (TString code) }] ->
|
|
| TLocal { v_name = "__js__" }, [{ eexpr = TConst (TString code) }] ->
|
|
spr ctx (String.concat "\n" (ExtString.String.nsplit code "\r\n"))
|
|
spr ctx (String.concat "\n" (ExtString.String.nsplit code "\r\n"))
|
|
|
|
+ | TLocal { v_name = "__instanceof__" }, [o;t] ->
|
|
|
|
+ spr ctx "(";
|
|
|
|
+ gen_value ctx o;
|
|
|
|
+ print ctx " instanceof ";
|
|
|
|
+ gen_value ctx t;
|
|
|
|
+ spr ctx ")";
|
|
| TLocal ({v_name = "__define_feature__"}), [_;e] ->
|
|
| TLocal ({v_name = "__define_feature__"}), [_;e] ->
|
|
gen_expr ctx e
|
|
gen_expr ctx e
|
|
| TLocal { v_name = "__feature__" }, { eexpr = TConst (TString f) } :: eif :: eelse ->
|
|
| TLocal { v_name = "__feature__" }, { eexpr = TConst (TString f) } :: eif :: eelse ->
|