diff options
| author | Kathy Gray | 2015-07-02 16:23:59 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-07-02 16:23:59 +0100 |
| commit | 91b89f4e737a026b2287b5a96a086e6a8d858c75 (patch) | |
| tree | e826304e4c3cf50f3510437fe5ee52741b080ce4 /src | |
| parent | 2bd473a64c70edf73a3a0e92649d7558fea6c9cb (diff) | |
fix match_pattern reverse bug
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 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)) |