From a48981f72cd5e0e9aeabec6fa2848c4f6d6d6253 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Mon, 16 May 2011 17:30:21 +0200 Subject: [PATCH] Fix memalloc_apply --- compiler/obc/transformations/memalloc_apply.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/obc/transformations/memalloc_apply.ml b/compiler/obc/transformations/memalloc_apply.ml index 7ae7025..b4ab861 100644 --- a/compiler/obc/transformations/memalloc_apply.ml +++ b/compiler/obc/transformations/memalloc_apply.ml @@ -93,7 +93,7 @@ let lhs funs (env, mut, j) l = match l.pat_desc with try { l with pat_desc = repr_from_ivar env iv }, (env, mut, j) with - | Not_found -> l, (env, mut, j) + | Not_found -> Obc_mapfold.lhs funs (env, mut, j) l let act funs (env,mut,j) a = match a with | Acall(pat, o, Mstep, e_list) ->