From a699249bafa7c686f246f65240fdc4b98fa6fdc9 Mon Sep 17 00:00:00 2001
From: Pierre Chambart <pierre.chambart@ocamlpro.org>
Date: Wed, 5 Jun 2013 18:57:35 +0200
Subject: [PATCH] eta expand Matching.inline_lazy_force

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

diff --git a/bytecomp/matching.ml b/bytecomp/matching.ml
index 99bfc20..2e8d8b5 100644
--- a/bytecomp/matching.ml
+++ b/bytecomp/matching.ml
@@ -1387,14 +1387,14 @@ let inline_lazy_force_switch arg loc =
                     Lapply(force_fun, [varg], loc)) ];
                sw_failaction = Some varg } ))))

-let inline_lazy_force =
+let inline_lazy_force arg loc =
   if !Clflags.native_code then
     (* Lswitch generates compact and efficient native code *)
-    inline_lazy_force_switch
+    inline_lazy_force_switch arg loc
   else
     (* generating bytecode: Lswitch would generate too many rather big
        tables (~ 250 elts); conditionals are better *)
-    inline_lazy_force_cond
+    inline_lazy_force_cond arg loc

 let make_lazy_matching def = function
     [] -> fatal_error "Matching.make_lazy_matching"
--
1.7.10.4