diff options
| author | Kathy Gray | 2015-06-05 14:38:19 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-06-05 14:38:19 +0100 |
| commit | 22f2486927cadb13279e88683e93ef14bf91da25 (patch) | |
| tree | 8bd460c57fbe754b24d06de8e2179fa4ecb6080b /src | |
| parent | 2e19cb0d94b82a68eaf01fe3d4199d44b250191f (diff) | |
Fix issue #5
Diffstat (limited to 'src')
| -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 ^ |