From 484c18b44c19bb139a4c574250d9913cc347ed5a Mon Sep 17 00:00:00 2001
From: Matej Kosik <m4tej.kosik@gmail.com>
Date: Thu, 11 Aug 2016 12:27:19 +0200
Subject: CLEANUP: removing a call of "Context.Rel.Declaration.to_tuple"
 function

---
 engine/namegen.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'engine/namegen.ml')

diff --git a/engine/namegen.ml b/engine/namegen.ml
index 8a766a717..129cb3868 100644
--- a/engine/namegen.ml
+++ b/engine/namegen.ml
@@ -287,8 +287,7 @@ let make_all_name_different env =
   let avoid = ref (ids_of_named_context (named_context env)) in
   process_rel_context
     (fun decl newenv ->
-       let (na,_,t) = to_tuple decl in
-       let na = named_hd newenv t na in
+       let na = named_hd newenv (get_type decl) (get_name decl) in
        let id = next_name_away na !avoid in
        avoid := id::!avoid;
        push_rel (set_name (Name id) decl) newenv)
-- 
cgit v1.2.3