From 56cf43f210cf95eca322ef8dc80a01f1f5ad4e89 Mon Sep 17 00:00:00 2001
From: Darcy Wong <darcy_wong@sil.org>
Date: Fri, 14 Dec 2018 16:30:37 +0700
Subject: [PATCH] clean up unused var

---
 windows/src/developer/TIKE/compile/MergeKeyboardInfo.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/windows/src/developer/TIKE/compile/MergeKeyboardInfo.pas b/windows/src/developer/TIKE/compile/MergeKeyboardInfo.pas
index 5495c2e98c..582f259412 100644
--- a/windows/src/developer/TIKE/compile/MergeKeyboardInfo.pas
+++ b/windows/src/developer/TIKE/compile/MergeKeyboardInfo.pas
@@ -467,7 +467,6 @@ var
   alangs: TJSONArray;
   olangs: TJSONObject; 
   o: TJSONObject;
-  nameAdded: Boolean;
   i: Integer;
   id: string;
 begin
@@ -493,6 +492,9 @@ begin
 
       json.RemovePair(TKeyboardInfoFile.SLanguages);
       json.AddPair(TKeyboardInfoFile.SLanguages, olangs);
+
+      // Migration complete and subtags populated
+      Exit;
     except
       on E:Exception do
       begin
@@ -504,7 +506,6 @@ begin
 
   {
   // Populate subtag names if needed
-  nameAdded := False;
   v := json.GetValue(TKeyboardInfoFile.SLanguages);
   
   if v is TJSONObject then