diff options
Diffstat (limited to 'interpret')
| -rw-r--r-- | interpret/interpret.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interpret/interpret.ml b/interpret/interpret.ml index b9a5576..27cecdb 100644 --- a/interpret/interpret.ml +++ b/interpret/interpret.ml @@ -210,6 +210,7 @@ end = struct | [VBool false] -> sub_eval b | _ -> type_error "Invalid condition in if." end + | AST_tuple x -> List.flatten (List.map sub_eval x) | AST_instance((f, _), args, nid) -> let (n, _) = find_node_decl env.st.p f in List.map |