From a8a3aeb49f3627a65c86c92b0ed743f7bfcf9ffb Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Fri, 9 Nov 2018 13:01:53 +0100
Subject: [clib] Remove unneeded `get_extension` function.

This has been in OCaml since 4.04.
---
 clib/cUnix.ml | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'clib/cUnix.ml')

diff --git a/clib/cUnix.ml b/clib/cUnix.ml
index 6b42e3041d..eedd878f93 100644
--- a/clib/cUnix.ml
+++ b/clib/cUnix.ml
@@ -74,10 +74,6 @@ let canonical_path_name p =
 let make_suffix name suffix =
   if Filename.check_suffix name suffix then name else (name ^ suffix)
 
-let get_extension f =
-  let pos = try String.rindex f '.' with Not_found -> String.length f in
-  String.sub f pos (String.length f - pos)
-
 let correct_path f dir =
   if Filename.is_relative f then Filename.concat dir f else f
 
-- 
cgit v1.2.3