|
@@ -368,8 +368,6 @@ let rec gen_call ctx e el in_value =
|
|
spr ctx ")";
|
|
spr ctx ")";
|
|
| TLocal { v_name = "__lua_length__" }, [e]->
|
|
| TLocal { v_name = "__lua_length__" }, [e]->
|
|
spr ctx "#"; gen_value ctx e;
|
|
spr ctx "#"; gen_value ctx e;
|
|
- | TLocal { v_name = "__lua_table__" }, _ when not in_value ->
|
|
|
|
- ()
|
|
|
|
| TLocal { v_name = "__lua_table__" }, el ->
|
|
| TLocal { v_name = "__lua_table__" }, el ->
|
|
let count = ref 0 in
|
|
let count = ref 0 in
|
|
spr ctx "({";
|
|
spr ctx "({";
|
|
@@ -996,6 +994,8 @@ and gen_block_element ?(after=false) ctx e =
|
|
| [] -> ()
|
|
| [] -> ()
|
|
| [e] -> gen_block_element ~after ctx e
|
|
| [e] -> gen_block_element ~after ctx e
|
|
| _ -> assert false)
|
|
| _ -> assert false)
|
|
|
|
+ | TCall({ eexpr = TLocal { v_name = "__lua_table__" }} , _) ->
|
|
|
|
+ ()
|
|
| TFunction _ -> ()
|
|
| TFunction _ -> ()
|
|
| TObjectDecl fl ->
|
|
| TObjectDecl fl ->
|
|
List.iter (fun (_,e) -> gen_block_element ~after ctx e) fl
|
|
List.iter (fun (_,e) -> gen_block_element ~after ctx e) fl
|