From 102a6cabc2b2e69532bf32d1e0dcb3e865266d85 Mon Sep 17 00:00:00 2001
From: Mark Shinwell <mshinwell@janestreet.com>
Date: Wed, 1 Mar 2017 07:59:20 +0000
Subject: [PATCH] Name variables properly

---
 asmcomp/interval.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/asmcomp/interval.ml b/asmcomp/interval.ml
index 6187b26ce..3408df777 100644
--- a/asmcomp/interval.ml
+++ b/asmcomp/interval.ml
@@ -152,10 +152,10 @@ let build_intervals fd =
         insert_destroyed_at_oper intervals i !pos;
         walk_instruction body;
         walk_instruction i.next
-    | Icatch(_, body, handler) ->
+    | Icatch(_, handlers, body) ->
         insert_destroyed_at_oper intervals i !pos;
-        List.iter (fun (_, i) -> walk_instruction i) body;
-        walk_instruction handler;
+        List.iter (fun (_, i) -> walk_instruction i) handlers;
+        walk_instruction body;
         walk_instruction i.next
     | Iexit _ ->
         insert_destroyed_at_oper intervals i !pos;