From 9340b0e333dd6acb5b18f68d1bf3eadad8401fa5 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Mon, 17 Sep 2018 08:02:42 -0400 Subject: [PATCH] Remove some unused bindings --- compiler/src/lib/tiger/tiger_semant.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/src/lib/tiger/tiger_semant.ml b/compiler/src/lib/tiger/tiger_semant.ml index a3893fa..2181695 100644 --- a/compiler/src/lib/tiger/tiger_semant.ml +++ b/compiler/src/lib/tiger/tiger_semant.ml @@ -3,7 +3,6 @@ module List = ListLabels module A = Tiger_absyn module Env = Tiger_env module E = Tiger_error -module Symbol = Tiger_symbol module Translate = Tiger_translate module Type = Tiger_env_type module Value = Tiger_env_value @@ -295,7 +294,7 @@ end = struct List.iter typedecs ~f:(fun (A.TypeDec {name; ty=ty_exp; pos}) -> let ty = transTy ~env ty_exp in (match env_get_typ ~sym:name ~env ~pos with - | Type.Name (name, ty_opt_ref) -> + | Type.Name (_, ty_opt_ref) -> ty_opt_ref := Some ty | Type.Unit | Type.Nil -- 2.20.1