From 90d64647d3fd5dbf5c337944dc0038f0b19b8a51 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 17 Jun 2014 14:26:02 +0200
Subject: Removing dead code.

---
 interp/notation.ml | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'interp/notation.ml')

diff --git a/interp/notation.ml b/interp/notation.ml
index 6fd6001f4f..ec82c8aea3 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -214,18 +214,6 @@ type interp_rule =
   | NotationRule of scope_name option * notation
   | SynDefRule of kernel_name
 
-let compare_interp_rule x y =
-  match x, y with
-  | NotationRule (sno1, n1), NotationRule (sno2, n2) ->
-      (match sno1, sno2 with
-      | None, None -> String.compare n1 n2
-      | None, Some _ -> -1
-      | Some sn1, Some sn2 -> String.compare sn1 sn2
-      | Some _, None -> 1)
-  | SynDefRule kn1, SynDefRule kn2 -> KerName.compare kn1 kn2
-  | NotationRule _, SynDefRule _ -> -1
-  | SynDefRule _, NotationRule _ -> 1
-
 (* We define keys for glob_constr and aconstr to split the syntax entries
    according to the key of the pattern (adapted from Chet Murthy by HH) *)
 
-- 
cgit v1.2.3