diff options
Diffstat (limited to 'src/lem_interp/interp.lem')
| -rw-r--r-- | src/lem_interp/interp.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index ab7e8385..e251c30e 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -2164,7 +2164,7 @@ and create_write_message_or_update mode t_level value l_env l_mem is_top_level ( | Just(funcls) -> let new_vals = match v with | V_tuple vs -> V_tuple (vs ++ [value]) - | V_lit (L_aux L_unit _) -> value + | V_lit (L_aux L_unit _) -> V_tuple [v;value] (*hmmm may be wrong in some code*) | v -> V_tuple [v;value] end in (match find_funcl t_level funcls new_vals with | [] -> ((Error l ("No matching pattern for function " ^ name ^ |