From 72892a9d823a407d62351d79ea51bd3094c03bb1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Mon, 16 May 2011 17:30:48 +0200 Subject: [PATCH] Fixed missing case in Obc_mapfold --- compiler/obc/obc_mapfold.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/obc/obc_mapfold.ml b/compiler/obc/obc_mapfold.ml index ea36e21..ad340c4 100644 --- a/compiler/obc/obc_mapfold.ml +++ b/compiler/obc/obc_mapfold.ml @@ -99,12 +99,13 @@ and act funs acc a = match a with let lhs_list, acc = mapfold (lhs_it funs) acc lhs_list in let args, acc = mapfold (exp_it funs) acc args in Acall(lhs_list, obj, n, args), acc - | Acase(x, c_b_list) -> + | Acase(e, c_b_list) -> let aux acc (c,b) = let b, acc = block_it funs acc b in (c,b), acc in + let e, acc = exp_it funs acc e in let c_b_list, acc = mapfold aux acc c_b_list in - Acase(x, c_b_list), acc + Acase(e, c_b_list), acc | Afor(x, idx1, idx2, b) -> let idx1, acc = exp_it funs acc idx1 in let idx2, acc = exp_it funs acc idx2 in