From 91b89f4e737a026b2287b5a96a086e6a8d858c75 Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Thu, 2 Jul 2015 16:23:59 +0100
Subject: fix match_pattern reverse bug

---
 src/lem_interp/interp.lem | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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))
-- 
cgit v1.2.3