diff options
Diffstat (limited to 'src/lem_interp')
| -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 5e37878e..b5020f29 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -999,7 +999,7 @@ let rec match_pattern t_level (P_aux p (_, annot)) value_whole = let (matched_p,used_unknown',new_bounds) = match_pattern t_level pat (taint_pat value) in (matched_p, (used_unknown||used_unknown'), (union_env new_bounds bounds)) else (false,false,eenv)) - (true,false,eenv) (if is_inc(dir) then pats else List.reverse pats) vals + (true,false,eenv) pats vals else (false,false,eenv) | V_vector_sparse n m dir vals d -> if (m = (List.length pats)) |