aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Splitting.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Splitting.ml')
-rw-r--r--backend/Splitting.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Splitting.ml b/backend/Splitting.ml
index f09da104..40f09c3d 100644
--- a/backend/Splitting.ml
+++ b/backend/Splitting.ml
@@ -73,7 +73,7 @@ module LRMap = struct
let bot : t = RMap.empty
- let lub_opt_range _ olr1 olr2 =
+ let lub_opt_range r olr1 olr2 =
match olr1, olr2 with
| Some lr1, Some lr2 -> unify lr1 lr2; olr1
| Some _, None -> olr1