Commit 2083f127 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

remove deprecated code ("position" feature)

parent df249d4d
......@@ -408,9 +408,6 @@ module P_fs = struct
exception Fail
let match_ ?(lexicons=[]) p_fs g_fs =
let p_fs_wo_pos =
try List.remove_assoc "position" p_fs
with Not_found -> p_fs in
let rec loop acc = function
| [], _ -> acc
......@@ -467,7 +464,7 @@ module P_fs = struct
(* We have exhausted Fail cases, head of g_fs satisties head of p_fs *)
| (_::p_tail, _::g_tail) -> loop acc (p_tail,g_tail) in
loop lexicons (p_fs_wo_pos,g_fs)
loop lexicons (p_fs,g_fs)
exception Fail_unif
let unif fs1 fs2 =
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment