From 048256944331ed646225e856fca56728a074f3a6 Mon Sep 17 00:00:00 2001
From: Gabriel Kerneis
Date: Tue, 14 Jan 2014 18:17:18 +0100
Subject: Fix vector concat pattern matching

The concatenation list was reversed.
---
 src/lem_interp/interp.lem | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/lem_interp')

diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem
index 8b801bee..39793bb5 100644
--- a/src/lem_interp/interp.lem
+++ b/src/lem_interp/interp.lem
@@ -406,8 +406,8 @@ let rec match_pattern p value =
    match value with
    | V_vector n inc vals ->
      let (matched_p,bounds,remaining_vals) =
-       List.foldr 
-         (fun pat (matched_p,bounds,r_vals) ->
+       List.foldl 
+         (fun (matched_p,bounds,r_vals) pat ->
            match pat with
            | P_vector pats -> vec_concat_match pats r_vals
            | P_id id -> (false,[],[]) (*Need to have at least a guess of how many to consume*)
-- 
cgit v1.2.3