From c96824b7d1043090747926e2e3fa369f5d3822ff Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 25 Apr 2016 19:34:18 +0200
Subject: Removing dead code in Compat.

---
 parsing/compat.ml4 | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/parsing/compat.ml4 b/parsing/compat.ml4
index a165e32bb6..1747aa5358 100644
--- a/parsing/compat.ml4
+++ b/parsing/compat.ml4
@@ -370,27 +370,6 @@ let make_fun loc cl =
 
 END
 
-(** Explicit antiquotation $anti:... $ *)
-
-IFDEF CAMLP5 THEN
-let expl_anti loc e = <:expr< $anti:e$ >>
-ELSE
-let expl_anti _loc e = e (* FIXME: understand someday if we can do better *)
-END
-
-(** Qualified names in OCaml *)
-
-IFDEF CAMLP5 THEN
-let qualified_name loc path name =
-  let fold dir accu = <:expr< $uid:dir$.$accu$ >> in
-  List.fold_right fold path <:expr< $lid:name$ >>
-ELSE
-let qualified_name loc path name =
-  let fold dir accu = Ast.IdAcc (loc, Ast.IdUid (loc, dir), accu) in
-  let path = List.fold_right fold path (Ast.IdLid (loc, name)) in
-  Ast.ExId (loc, path)
-END
-
 IFDEF CAMLP5 THEN
 let warning_verbose = Gramext.warning_verbose
 ELSE
-- 
cgit v1.2.3