From 3369f6dffc683a6050cfdae40c9d365ee83cce70 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= <cedric.pasteur@ens.fr>
Date: Thu, 24 Nov 2011 16:09:47 +0100
Subject: [PATCH] Don't forget to optimise control recursively

---
 compiler/obc/control.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/obc/control.ml b/compiler/obc/control.ml
index 6d4f287..8572366 100644
--- a/compiler/obc/control.ml
+++ b/compiler/obc/control.ml
@@ -122,7 +122,8 @@ and joinhandlers j h1 h2 =
           with Not_found -> s1, h2 in
         (c1, join_block j s1') :: joinhandlers j h1' h2'
 
-let block _ j b =
+let block funs j b =
+  let b, _ = Obc_mapfold.block funs j b in
   { b with b_body = joinlist j b.b_body }, j
 
 let class_def funs acc cd =